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Z-29 

Terminal 

ROM Source Listing 


This document contains the source listing of the code 
contained in the Z-29 Terminal’s ROM. 

Reproduction of this code (software) in any form, except 
with written consent from Zenith Data Systems Corpora¬ 
tion, is expressly prohibited. 


f% 






NOTICE 

Zenith Data Systems Corporation makes no express or 
implied warranties with regard to this software, including 
merchantability, fitness for any purpose, or non-infringe¬ 
ment of patents, copyrights, or other proprietary rights 
of others. Zenith Data Systems Corporation shall not 
have any liability or responsibility to sublicensees, includ¬ 
ing end-users, for damages of any kind, including spe¬ 
cial, indirect, or consequential damages, arising out of 
or resulting from any program, services, or materials 
made available hereunder or the use or modification 
thereof. 


The information in this publication is considered to be 
correct and up to date when it is first published. Zenith 
Data Systems Corporation reserves the right to change 
^ the product at any time without incurring any obligation 
to incorporate new features in products already sold. 
These changes may or may not be reflected in this or 
future editions of this documentation. 
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Z--29 Termi na 1 Fi rmware Vcrs i on 1.03 


Written bv R. Nidi K. Boland 


February 10, 1983 


C o pV right (C) 1983 
Zenith Da t a Sv s terns 
Saint Joseph, Michigan 


10 

11 


Initial consultation bv Tom B1op 
Initial hardware bv Michae1 Gorbu11 
Hardujare finished bv Anthony M, Olson 


12 

13 


14 

15 


16 

17 


Many things have been used to compact the program. Looh: 
for these situations. The most common are where subroutines 


18 

19 


use parts of other subroutines. Other instances are where 
a 5 ingle LJMP cou l d be used and many .AOMP " s used to r^f, 
the long Jump. 


20 

21 


23 

'24' 

25 

26' 


ENABL LC . 

NLIst TOC 

NAME Z29R0M. 

SBTTL Z-29 Computer Terminal Firmware Version 1.03 
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.. Zt29 

.CDHP.UXER . TERM INfti,. FIRMWORE. VEB 

S.I0.N..1..03. 




.. X. 



.ASC I I c h a r a c t e r- e ««u i va 1 e n c e s 

? 

. OOQO 

.NULL. 

.e.QU . 

.O.QOOQOQOB ; 

Ngl 1 

4 

0007 

BELL 

EQIJ 

00000111B ? 

Bel 1 

b 

.....0008. 

.BS.. 

.EQU. 

..QQOOiOO.QB.. 7 

Backspace 

6 

0009 

HT' 

EQU 

0000100IB ; 

H 0 r i z 0 n t a 1 t a b 

7 

OOOA 

LF 

EQU 

0000101OB ; 

Linefeed 

8 

OOOD 

CR 

EQU 

00001101B ? 

Carriasie return 

9 

0011 

XON 

EQU 

0001000IB " 

DCl (XON) 

10 

0013 

XOFF 

EQU 

0001001 IB ; 

bC3 (XOFF) 

11 

0018 

CAN 

EQU 

OOOllOOOB . ; 

Cancel 

12 

00 IB 

ESC 

EQU 

0001101 IB ? 

Escape 

13 

007F 

RIJBOUT 

EQU 

OlllllllB ; 

Rubout / delete 

14 






15 






16 


"■ 

Constants 


17 






IS 

0018 

MAXLINE 

^ EQU 

24 ; 

Max number of lines is 0..24 

19 

0019 

NUMLINES 

EQU 

■~'Pi • 

Number of lines is 1. . 25 

20 

004F 

MAXCHAR 

EQU 

79 ; 

Max number of chars/line 0..79 

21 

0050 

NUMCHARS 

EQU 

80 ; 

Number of characters is 1..80 

23 

24 






25 


" ? 

8051 

processor constants 


26 

27 

0000 

BANKO 

EQU 

OOOOOOOOB ; 

Select reoister bank 0 

28 

0008 

BANKl 

EQU 

OOOOIOOOB ; 

Bank 1 

29 

0023 

ITMOD 

EQU 

0010001 IB ; 

Init value for -TMOD- 

30 

005A 

I SCON 

EQU 

OlOllOlOB ; 

in it value for -SCON- 

31 

0003 

IPINIT 

EQU 

0000001 IB ; 

Init value for interrupt priorities 


0095 

lEINIT 

EQU 

lOOlOlOlB ; 

init value for interrupts 

33 

0082 

lEDMA 

EQU 

1000001OB ; 

Init value for interrupts during DMA 


c 


c c c c 


c c c 


c c 


c 
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1 


. . 

Kev 

board data 


3 

4 



Data from the kevboard other than ASCII data is in the format . 

. of iscXXXXXB where s ~ shift status, c ~ control status and 

the rest of the word defines the function. Exceptions to this 

. 6 

7 


] 

are 

the access functi 

on, power up function and ID number. 

8 

9 


? " 


OaaaaaaaB 

ASCII data to be transmitted 

10 

11 

0040 

0020 

KB„SHFT 

KB_CNTR 

EEQU 

EQLI 

OlOOOOOOB 

OOlOOOOOB 

; keyboard shift mask 
; Keyboard control mask 


12 

13 


14 

0080 

KB_LIP 

EQU 

lOOOOOOOB 

? Up arrow 

key 

15 

0081 

KB-DOWN 

EQU 

1000000IB 

" Down arrow key 

16 

0082 

KB^LEFT 

EQI-i 

1000001OB 

' Left arrow key 

17 

0083 

KB„RIGHT 

EQU 

1000001 IB 

; Risht arr 

ow key 

18 

0084 

KB_HCiME 

EQU 

lOOOOlOOB 

• Home key 


19 

0085 

KB„ERASE 

EQU 

10000101B 

■ Erase kev 


20 

0086 

KB_HELP 

EQU 

1000011OB 

; Help key 


21 

0087 

KB_SCROLL 

EQU 

1000011 IB 

• Scroll ke 

y .. 


0088 

KB_SETUP 

EQU 

10001OOOB 

? Setup kev 



0089 

KB BREAK 

EQU 

1000100IB 

• Break key 


24 

008A 

KB-.CAPS 

EQU 

1000101OB 

" Caps loch 

key 

25 

008B 

KB„TAB 

EQU 

1000101 IB 

" Tab key 


26 

27 

008C 

KB_SPACE 

EQU 

10001lOOB 

; Space bar 


28 

29 

008F 

KB_POWER 

EQU 

1000111 IB 

; Keyboard 

Just powered up 

30 

0090 

KB_0 

EQU 

lOOlOOOOB 

; Numeric h 

eypad 0 h:e y 

31 

0091 

KB-1 

EQU 

1001000IB 

7 Numeric h 

evpad 1 key.. 


0092 

KB-2 

EQU 

1001001OB 

V Numeric l:; 

eypad 2 key 

33 

0093 

KB_.3 

EQU 

1001001 IB . 

? Numeric keypad . 3.. k.e y. 

34 

0094 

kB_4 

EQU 

lOOlOlOOB 

7 Numeric 1= 

eypad 4 kev 

35 

0095 

KB^5 

EQU 

...X.QOXQmXB . 

; Numeric keypad 5 . h:.e y-.... 

36 

0096 

KB„6 

EQU 

1001011OB 

; Numeric I- 

eypad 6 key 

37 

0097 

KB_7 

EQU 

1001011 IB 

• Numeric h 

eypad 7 key 

38 

0098 

KB_S 

EQU 

10011OOOB 

• Numeric h 

eypad 8 key 

39 

0099 

KB_.9 

EQU 

....lOOllpOlfi. 

■ Numeric k 


40 

009A 

KB_DEC 

EQU 

ioolioioB 

7 Numeric h 

eypad decimal point h:ey 

41 

009B 

• KB^ENT 

EQU 

1001101 IB .... 

} Numeric k 

ey p^d e h P.. Y. .. 

42 

009C 

KB_DASH 

EQU 

lOOlllOOB 

; Numeric h 

eypad dash hiev 

43 

009D 

KB„COMMA 

EQU 

lOOlllOlB 

7 Numeric .k 

eypad comma key . 
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7 

009F 

KB-ACC 

EQIJ 

1001 HUB 

; Access CO 

de 



9 

0080 

KB_.F1 

EQU 

1OOOOOOOB 

.. . F’unct i on 

ke 

V #1 


10 

0081 

KB_.F2 

EQU 

1000000IB 

* F u n c t i 0 n 

ke 

r #2 


11 

0082 

KB_F3 

EQU 

1000001OB 

■ Function 

ke 

V #3 


12 

0083 

KB_.F4 

EQU 

10000011 B 

; Function 

ke 

r #4 


1 

0084 

KB_F5 

EQU 

lOOOOlOOB 

; Function 


•r #5 


14 

0085 

KB_F 6 

EQU 

1000010IB 

' Function 

ke 

V #6 


15 

0086 

KB_F7 

EQU 

1000011OB 

; F u n c t i 0 ri 


V #7 


16 

0087 

KB„F 8 

EQU 

1000011 IB 

? F u n c t i 0 n 

ke 

V #8 


17 

0088 

KB_F9 

EQU 

lOOOlOOOB 

; F u n c t i 0 n 

ke 

V #9 


18 

19 

0098 

KB_ID 

EQU 

lOOllOOOB 

" ID number 


1001 lx:: 

ckB 


20 

21 


24 

25 


!’ 

Key b 0 a r d c 0 mma n d s 


26 

27 

28 

29 


; 

These 

kevbo 

modes 

are commands that are sent from the terminal to the 

and to perform different functions. 

:S0 

0080 

KBC:_lb 

EQU 

1OOOOOOOB 

V Send J::eyboard ID number 

31 

0081 

KBC:_BELL 

EQU 

1000000IB 

; Rins» bell 

32 

0082 

KBC_EC: 

EQU 

1000001OB 

“ Enable key did' 

:3:3 

0083 

KBC_DC 

EQU 

1000001 IB 

“ Disable key click 

34 

0084 

KBC_EL 

EQU 

lOOOOlOOB 

; Enter caps lochied 

35 

0085 

KBC_XL 

EQU 

1000010IB 

• E;:<it caps locked 

36 

0086 

KBC:._ER 

EQU 

1000011OB 

; Enable auto repeat mode 

37 

0087 

KBC:_DR 

EQU 

1000011IB 

; Disable auto repeat mode 

38 

0088 

KBC:_DK 

EQU 

lOOOlOOOB 

; bis a b 1 e e y b 0 a r- d 

39 

0089 

KBC_EK 

EQU 

1000100IB 

; Enable keyboard 

40 

008A 

KBC:_OFFLN 

EQU 

10001 61 OB 

; Turn on offline LED 

41 

008B 

KBC.ONLN 

EQU 

1000101 IB 

; Turn off offline LED 


cccccc cc cc c 
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1 


. . 

CRT 

video controler 

equivalences .. 

2 

3 

0000 

CRESET 

EQU 

OOOOOOOOB 

a 

> 

Reset 8275 . 

4 

5 

6o4f 

0098 

SCRNl 

SC:RN2A 

. eqU 

EQU 

0100111 IB 
lOOllOOOB 

? 

Normal rowsi SO chars/row 

3 VRTC, 25 rows/screen . 

6 

7 

dobc 

0099 

. SCRN2B 

SC:RN3 

EQU 

EQU 

llOlllOOB 

lOOllOOlB 

7 

7 

4 VRtC» 29 rows/screen 

line 10 under!ine> 10 scan lines . 

8 

9 

0d4E 

004F 

.scrn^a'" 

SC:RN4B 

EQU 

EQU 

01001 HOB 
0100111 IB 

7 

attributes! cursor, 30 HRTC 
attributes, cursor, 32 HRTC 

10 

11 

0020 

CSTRT 

EQU 

OOlOOOOOB 

a 

7 

Start display, 0 delay, 1/burst . 

12 

13 

0040 

0080 

CSTOP 

CCRSR 

EQU 

EQU 

OlOOOOOOB 

lOOOOOOOB 

7 

Stop display 

Load cursor position 

14 

15 

OOAO 

OOEO 

Cl NT 

CSET 

EQU 

EQU 

lOlOOOOOB 

lllOOOOOB 

7 

a 

7 

Enable end of frame interrupt 

Preset counters . 
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. 1 


; ; 

External memory address 

m 

ap 


2000 

. DDATREG 

EQIJ 

8*1024 

. 

8275 data register 

4 

2001 

DCMDREG 

EQU 

8*1024 + 1 

• 

8275 command reaister 

6 

.... 2001 

.PSTAREG 

EQU 

8*1024 + 1 

?. 

8275 status register 

.7. 

. 3000 

..MUeT.CH. 

EQU 

12*1024 

. 

Memory latch 

8 

•p 

4000 

.ATRIBMEM 

EQU 

16*1024 


Attribute memory 

10 

11 

5000 

. CHARMEM 

EQU 

20*1024 


Character memory 

I'Z 

13 

5780 

L25MEM 

EQU 

20*1024 + 1920 

; 

Line 25 memory 

14 

15 

57D0 

IBUF 

EQU 

20*1024 + 2000 

• 

input buffer 32 bvtes 

0009 

ILO 

EQU 

9 

- 

Input nueue lo water mark 

16 

17 

0015 

IHI 

EQU 

21 

; 

Input gueue hi water mark 

0020 

ILEN 

EQU 

32 

• 

Input nueue length 

18 







19 

57F0 

OBUF 

EQU 

20*1024 + 2032 

■ 

Output buffer S bytes 

20 

21 

57F7 

GLEN 

EQU 

OBUF + 7 

; 

Output nueue length 

23 

57F8 

PMBUF 

EQU 

20*1024 + 2040 

V 

ANSI parameter buffer 8 bytes 

24 

6000 

DMAMEM 

EQU 

24*1024 

; 

DMA memory 

26 

■ 7-7 

7000 

EAROM 

EQU 

28*1024 

; 

EAROM memory 


2 ;“; 


29 


; 

External 

memory constants 


30 

31 

OOEF 

ATRANL 

EQU 

lllOllllB 

; Mask 

-CHARMEM- to -ATRIBMEM- 

32 

OOCF 

0010 

DMAANL 

EQU 

1100111 IB 

“ Mask 

-DMAMEM- to -ATRi'lBMEM- 


CHRORL 

EQU 

OOOIOOOOB 

; Mask 

-ATRIBMEM- to -CHARMEM- 

34 

0020 

liiMAORL 

EQU 

OOlOOOOOB 

; Mask 

-ATRIBMEM- to -DMAMEM- 


c c c c c c c c c c c 

























3 

3 3 


3 

3 
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1 


. . 

Internal 

RAM 

memorY setup 


3 

4 

5 



Resister 

bani 

#0 used in backsround Jobs 


6 

7 

REG 

PTRl 

EQU 

RO 

; Work pointer #1 

(RO) 

8 

9 

0000 

REG 

PTRIA 

PTR2 

EQU 

EQU 

OOH 

R1 

; Address of -PTRl- 
; Work pointer #2 

(R1 ) 

10 

11 

000 i 

REG 

PTR2A 

INDXl 

EQU 

EQU 

OlH 

R2 

7 Address of -PTR2~ 

7 Index resister 1 

(R2) 

12 

13 

0002 

REG 

INDXIA 

INDX2 

EQU 

EQU 

02H 

R3 

; Address of -INDXl- 
7 Index resister 2 

(R3) 

14 

15 

0003 

REG 

INDX2A 

WORK 

EQU 

EQU 

03H 

R4 

; Address of -INDX2- 
7 Work resister 

(R4) 

16 

17 

0004 

REG 

WORKA 

TEMP 

EQU 

EQU 

04H 

R5 

; Address of -WORK- 
7 Terriporarv hoi dins resister 

(R5) 

18 

19 

0005 

REG 

TEMPA 

WORKl 

EQU 

EQU 

OSH 

R6 

; Address of -TEMP- 
7 Work resister 1 

(R6) 

20 

21 

6006 

REG 

WORK1A 
W0RK2 

EQU 

EQU 

06H 

R7 

; Address of -WORKl- 
7 Work resister 2 

(R7) 

22 

23 

0007 

W0RK2A 

EQU 

07H 

7 Address of -WURK2- 


24 

25 


- 

Resister 

• banl: 

: #1 used in DMA routine 


26 

27 

REG 

DMPTR 

EQU 

RO 

7 Pointer into line order 

(RO) 

28 

29 

0008 

REG 

tiMPTRA 

DMLN 

EQU 

EQU 

OSH 

R1 

5 Address of -DMPTR- 
7 Current DMA line number 

(R1 ) 

30 

0009 

DMLNA 

EQU 

09H 

; Address of -DMLN- 
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1 


. 

General 

use variables 

from OAH to IFH 

2 

OOOA 

DMADRH 

EQU 

OAH 


Next address of DMA hish bvte 

4 

OOOB 

DMADRL 

EQU 

OBH 


Next address of DMA low bvte 

6 

7 

OOOC 

OOOD 

ISTORE 

IFETCH 

EQU 

EQU 

OCH 

ODH 


Input store pointer- 
input fetch pointer 

8 

9 

OOOE 

ICOUNT 

EQU 

OEH 

7 

Input number count 

10 

11 

OOOF 

0010 

OSTORE 

OFETCH 

EQU 

EQU 

OFH 

lOH 

* 

Output store pointer 

Output fetch pointer 

12 

13 

0011 

XPOS 

EQU 

IIH 

> 

Actual X-position 

14 

15 

0012 

YPOS 

EQU 

12H 

7 

Actual Y-position 

16 

17 

0013 

0014 

LINADH 

LINADL 

EQU 

EQU 

13H 

14H 

> 

Address of next character to plot 

Address of next character to plot 

IS 

19 

0015 

DSADRH 

EQU 

15H 

. 

Dispatch address hish 

20 

21 

0016 

DSADRL 

EQU 

16H 


Dispatch address low 

22 

23 

0017 

0018 

TSCROLL 

BFIX 

EQU 

EQU 

17H 

18H 

* 

Top line of scrolling region 

Top line of the bottom fixed region 

24 

25 

0019 

PMADRH 

EQU 

19H 

. 

ANSI parameter address high 

26 

27 

001A 

00 IB 

PMADRL 

PMNUM 

EQU 

EQU 

lAH 

IBH 

* 

ANSI parameter address low 

ANSI number of parameters 

28 

29 

001C 

PMVALUE 

EQU 

ICH 

* 

ANSI current value of parameter 

30 

31 

“•O 

00 ID 

00 IE 

1 cr 

KBIDNUM 

HSLINE 

EQU 

EQU 

IDH 

lEH 


K e Y b 0 a r d ID n u m b e r 

Hold screen mode line count 


OCjiF GSEt EQU IFH " Graphic set Gl arid GO select 


c c c 


c c c c c c 


c 
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y 

1 j 


y 
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y y 

.■Z29Rb>i? 'MfCRdBENCH 8051 CROSS ftSSEMBLER <V1)-218 24-FEB-83 15 

Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 «** . 

:30:06 PAGE 

9 



1 



. 

FI ass 

that defina 

bvte 

20H 


3 

0020 


XLATCH 

EQU 

20H 


; ErKternal latch bvte 


’4 

F, 

0000 


EAROMSAVE 

BIT 

OOH 


; 0 == save EAROM 

1 = normal 

6 

7 

0001 

0002 


BLiNKF 

PORTF 

BIT 

BIT 

OlH 

02H 


; 0 = blink chars on 
; 0 = main port 

i = blanked 

1 = auxiliarv 

8 

9 

0003 


.earOMRcall 

BIT 

63H 


; 0 = recall 

1 = normal 

10 

11 



. 

Flass 

that define 

bvte 

21H 


.12:. 

13 

0021 


ATTRIBUTES 

EQU 

21H 


; Attribute bvte 


14 

15 

0008 


RWA 

BIT 

OSH 


; Reverse video attribute 

16 

17 

.o6(::j9‘ ■ 

OOOA 


UNDLNA 

BLINKA 

BIT 

BIT 

09H 

OAH 


‘ Underline attribute 
* Blink attribute 


18 

19 

OOOB 

oooc 


. HALFiA 

ALTCHARA 

BIT 

BIT 

OBH 

OCH 


; Half intensitv attribute 
; Alternate character set attribute 

20 

21 

OOOD 

OOOE 


GRPH 

PROTECT 

BIT 

BIT 

ODH 

OEH 


• 0 = no sraphics 
; 0 = no protected 

1 = sraphics 

1 = protected 

2i 

23 

OOOF 


ALtGRPH 

BIT 

OFH 


; 6 = no alt sraphics 

i = alt sraphic set 

24 

25 



. 

FI ass 

that define 

bvte 

22H 


26 

27 

0010 


XOFFSENT 

BIT 

lOH 


; 0 ~ no terminal XOFF 

1 = term XOFF 

28 

29 

0011 

0012 


UXOFFSENT 

GSEL 

BIT 

BIT 

IIH 

12H 


■ 0 ~ no user XOFF 
; 0 = GO selected 

i = user XOFF 

1 = G1 selected 

30 

31 

0013 

0014 


OKTRANS 

DX 

BIT 

BIT 

13H 

14H 


; 6 = do not transmit 
• 0 = no X-pos chanse 

1 = ok to trans 

1 “ chanses 

32 

0015 

0016 


L25EN 

XOFFRCVED 

BIT 

BIT 

15H 

16H 


; 0 ~ line 25 disabled 
; 0 == no XOFF received 

1 = 25 enabled 

1 = received 

34 

35 . 

36 



7 

FI ass 

that define 

bvte 

23H 


37 









38 

39 

0018 

0019 


PSDF 

GNPF 

BIT 

BIT 

18H 

19H 


; Indicates if ^J-PSD# has 
* Indicates if -s-GNP# has 

1 been done once 
^ been done once 

40 

41 

6b 1A 
001B 


ENBLCUR 

ERM 

BIT 

BIT 

lAH 

IBH 


; 6 = cursor disabled 
• 0 = erase al1 data 

1 = enabled 

1 = only unprotected 

42 

43 

001C 
00 ID 


SHIFTF 

CONTLF 

BIT 

BIT 

ICH 
. IDH 


; shift data from kevboard 
‘ control data from kevboard 

44 

45 

00 IE 
00 IF 


ACCESSF 

KBDISF 

BIT 

BIT 

lEH 

IFH 


; 0 = no access from kb 
; 0 = keyboard enabled 

1 = in prosress 

1 = disabled 

46 

47 . 

48 

49 




FI ass 

that define 

bvte 

24H 


50 

51 

0020 

0021 


CLRFLG 

ICMODEF 

BIT 

BIT 

20H 

21H 


; Used in screen DMA must allavs be 0! 

“ 0 = not insert char 1 = IC mode on 

52 

53 

54 

0022 

0023 


HSSTOPF 

PRNTF 

BIT 

BIT 

22H 

23H 


; 0 = dont hold screen 
; 0 = not print ins 

1 = stop screen 

1 = print ins 

0024 
.0.Q25. 


VSPF 

GATM 

BIT 

BIT 

24H 

25H 


; 0 = suppress video 
; 0 = trans al1 data 

1 = normal 

1 = 0 n 1 y u n p r o t e c t e d 
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.1. 


? 

. 

.t.h.a.t.. define. 

bvte 

25H 






.a. 

.W28. 

. PRTYENA 

.BIT.... 

.23.H.... 



0 


no Par i tv 

1 


oi% parity 

4 

0029 

PRTYSTK 

BIT 

29H 



0 


normal parity 

1 

= 

stick 

5 

Q02A 

PRTYEVN 

.BIT... 

.....2AH. 



o 


odd parity 

1 

s= 

even parity 

6 

002B 

AUTOWRAP 

BIT 

2BH 



0 

= 

no auto wrap 

1 


wrap around 

. 7 

.002C. 

AUTOCR 

BIT 

2CH 



0 


no auto CR on LF 

1 

s= 

auto CR 

8 

002D 

AUTOLF 

BIT 

2DH 



0 


no auto LF on CR 

1 


auto LF 

. ?. . 

. Q92B . 

ONLINE 

BIT 

2EH 



0 

=s 

off line 

1 

= 

on 1ine 

10 

002F 

FULLDPLX 

BIT 

2FH 



0 


half duplex 

1 


full duplex 

.U. 













12 













.13. 


; 

FI ass 

.that define 

bvte 

26H 






14 


; 











.15. 

0030 

KPADSHTF 

BIT 

30H 


« 

7 

0 

= 

keypad ordinary 

1 

= 

shifted 

16 

0031 

KPADALTF 

BIT 

31H 


m 

7 

0 

= 

k e y pa d o r din a r y 

1 


alternate 

..17. 

.C>‘;>32. 

CRUL 

BIT 

32H 


? 

0 

=: 

block cursor 

..1 

= 

under 1ine 

18 

0033 

CLKF 

BIT 

33H 


? 

0 

= 

no key click 

i 


die k 

.19. 

0034 

.REPF. 

.BIT ... 

34H 



o 

s: 

no auto repeat 

. 1 

rs 

auto repeat 

20 

0035 

CAPLOCKF 

BIT 

35H 


7 

0 


caps unlocked 

1 


1ocked 

. 21 

. 

. HSMODEF 

BIT 

... .3.4H.... 



0 

— 

f} P.t. .h P.l s.t; r.^^.n 

. .1. 

= 

hold screen 

22 

.23. 

0037 

L250N 

BIT 

37H 


? 

0 

rr: 

status line off 

1 

= 

status on 

24 

2f^ 


. 

FI ass 

that define 

bvte 

27H 






26 


? 











. 27 . 

0038 

CRNBK 

BIT 

38H 


- 

0 

= 

blinkins cursor 

.1 

= 

n 0 n b 1 i n k’ 

28 

0039 

FREQ 

BIT 

39H 


'' ; 

0 

== 

50 Hz 

i’ 

■ = 

60 Hz 

29 

p03A 

MONITOR 

BIT 

3AH 


• 

0 

= 

not monitor mode 

1 

= 

monitor 

30 

003B 

SCRNSAVE 

BIT 

3BH 


V 

6 


no screen saver- 

1 


saver on 

.31. 

.PP3C: 

PRTF2 

.B.IT . 

3C:H 


- 

0 

:= 

main port 

1 

= 

a u Xi1 ary 

32 

003D 

ACHR2 

BIT 

3DH 


7 

0 


normal char set 

1 

' = 

alternate 

.33. 

003E 

HNDSHK 

BIT 

3EH 


_^ 

0 

,r., 

software 

.1. 

.T 

hardware 


36 

37 



FI ass 

that define tc^'te 

2SH 



38 

39 

0028 

MODE 

EQLI 

28H 

; Mode terminal is in 



40 

0040 

ANSI 

BIT 

40H 

• 0 = other modes 

1 = 

' ANSI mode 

41 

0041 

ZDS 

BIT 

41H. 

• 0 = other modes 

1 = 

: ZDS mode 

42 

00’42 

ADM3 

BIT 

42H 

; 0 = other modes 

1 = 

ADM 3 mode 

43 

0043 

HAZ 

BIT 

43H 

7 0 = other modes 

1 == 

Haz 1500 

44 








45 








46 


; 

Variable tab table 




47 


; 






48 

0029 

TABTAB 

EQU 

29H 

7 Variable tab table 

10 

bytes to 32H 


c c c 


c c c c c c 


€ 
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1 


. 

General 

use 

variables from 33H to 46H 


2 

3 

0033 

BAUDRATE 

EQU 

33H 

; 

Serial port baud 

rate 

4 

5 

0034 

NVRSUM 

EQU 

34H 


Non-volatile RAM 

checksum 

6 

7 

0035 

0036 

XXF’OS 

XYPOS 

EQU 

EQU 

35H 

36H 

m 

Saved X-position 
Saved Y-Position 


8 

9 

0037 

BLNKRATE 

EQU 

37H 


Blinkinsi rate of 

screen 

10 

11 

0038 

BLNKCNT 

EQU 

38H 

■ 

7 

Running count for 

blink rate 

12 

13 

0039 

ALltdCNt 

EQU 

39H 

’ 

Auto off timer count 

14 

15 

003A 

003B 

.rcNT. 

TSEC 

EQU 

EQU 

3AH 

3BH 

7 

Running clock count 

Seconds counter 

. 

17 

. 0030 . 

003D 

. TlilN 

THOUR 

.Fdu 

EQU 

■ 'SCH' 
3DH 

? 

Minute counter 
Hour counter 


18 

19 

003E 

DISPSEC 

EQU 

3EH 

. 

Last count of seconds displayed 

20 

21 

003F 

PFIELD 

EQU 

3FH 

- 

Protected fields 

bvte 

22 

23 

0040 

ERRORS 

EQU 

■ 40H’ 


PowerUP diagnostic error flags 

24 

25 


. 

Screen 

1 i ne 

table 



26 

27 

0047 

LORDER 

EQU 

47H 

; 

Line order 1ist 

25 bytes to 5FH 


28 

29 


o 

CO 


; 

Stack 

area 



31 


; 





32 

005F 

STACK 

EQU 

5FH 


Stack pointer address 32 bvtes to 7FH 

33 







34 







35 


; 

8051 

processor 

bit port defines 

36 


; 





37 

0090 

KBOUT 

BIT 

Pl.O 

m 

7 

Keyboard output line 

38 

0091 

KB IN 

BIT 

PI. 1 

7 

keyboard input line 

39 

0092 

VSP 

BIT 

PI.2 

7 

0 = normal video 1 == suppressed 

40 

0093 

SETLCK 

BIT 

PI. 3 


b == setup mode locked 1 = normal 

41 

0094 

DTR 

BIT 

PI.4 

• 

7 

Data terminal ready 

42 

0095 

RTS 

BIT 

PI. 5 

« 

7 

Ready to send 

43 


; 

BIT 

PI. 6 

7 

Expansion socket 

44 

0097 

CLKRUN 

BIT 

PI. 7 

7 

C1 0ck run for- CRT contro 1 er 

45 







46 


;TXD 

BIT 

P3. 1 


Predefined serial port transmit pin 

47 

00B4 

DMATYPE 

BIT 

P3.4 

7 

0 = clear memory 1 = DMA CRTC 

48 

00B5 

CTS 

BIT 

P3.5 

7 

Clear to send 





































Z29R0M; MICROBENCH 8051 CROSS ASSEMBLER (Vl)-218 24~FEB-a3’l5!i 30:06 ’ PAGE' 

.l.-:29.. COMPUTER. .TERMINAL .F.IRMWARE. .VERS.ION. i. 03. . 


5.?.RQM..#2.yeCJQRS. 

?.Th«A^. .1 p.c^kvt i.QD.s. .ar.€f. j?r.c»v.id.€:cl. .t.o.. f..ac.i .l.i .Tu.tu.r:e. .criccl.if.ic.at.i.o.ri.s. 

* without a chanse to the masked processor. Each location is 

•“.acces.se.d. .wi.th. .a. .-CALL.-. aci.d. contr.o.l.. Is. .siaia^d..b.ac.k. wi.tb. .a. .rRETr.-. 


8 

9 


? 

Initialization of internal RAM and anv other devices that 
may be added. 

10 

11 

1000 

R2_IN 

EQLI 

lOOOH 

12 . 

13 

14 

15 


? 

? 

Same 

such 

as R2_IN but does not destroy current settings 
as CAPS LOCK, ON/OFF LINE, TIME on clock, etc. 

16 

17 

1003 

R2_IN2 

EQIJ 

1003H 

18 . 

19 

20 

21 



Start DMA hook. This is Jumped to at the besinnins of each 

DMA re^iuest from the CRTC, 

22 

23 

1006 

R2..-STARTDMA 

EQIJ 

1006H 

24 . . 

25 

26 

27 


7 

? 

Stop DMA hook. This is Jumped to at the besinnins of each 
timer 0 interrupt. 

28 

29 

1009 

R2_ST0PDMA 

EQU 

1009H 

30 . 

31 

32 

33 


7 

7 

Fil 1 
DMA 

screen hook. This is Jumped to start the fill screen 
feature, A check for protected fields is made. 

34 

35 

lOOC 

7 

R2_FILL 

EQU 

lOOCH 

36 ... 

37 

38 

39 



IRQ 

hook. This is Jumped to at the besinnins of each IRQ, 

40 

41 

lOOF 

R2_IRQ 

EQU 

iOOFH ' . 

42 

43 


7 

Serial hook. This is Jumped to at the besinnins of each 

44 

45 


m 

7 

7 

serial interrupt. 

46 

1012 

R2_SERIAL 

EQU 

1012H . 


X 

.3 

4 

5. 

6 

7 


ccccccccccc 
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1 


. 

Transmit hook. This performs the transmit character 


jd 

3 



function of the terminal for the serial port. 


4 

1015 

. R2-.XMt 

EQij irjisH 


6 

7 


. 

Send an XON to the host. 


8 

9 

1018 

R2_X0N 

EQIJ 1018H . . 


10 

11 . 

12 

13 


7 

Initialize the cursor format. 


14 

15 

lOlB 

R2_ICUR 

EQij io'lBH 


16 

17 


7 

Initialize the keyboard . 


IS 

19 

lOlE 

7 

R2_IKB 

EQU lOlEH . 


20 

21 . 

23 


* 

SETUP mode vector 


24 

2'=i 

1021 

R2„SETUP 

EQIJ 1021H 


26 

27 



Background loop hook. This is called once every time through . 


28 

29 



the main background loop. 


30 

31 

1024 

R2^BACK 

EQIJ 1024H 


32 

33 



Keyboard input hook. This is called once before a character 


34 



is received from the keyboard. 


36 

37 

1027 

R2_.KY1 

EQIJ 1027H 


38 

39 



Keyboard output hooh:. This is called once .at. thebf'.^i.nC'AC'?.. 


40 

41 



of each transfer to the keyboard. 


42 

43 

102A 

R2_KY2 

EQU 102AH 


44 

4*=; 


. 



46 

47 



received. 


48 

102D 

R2_ESC 

EQU 102DH 
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1 


Transmit character. 

This performs the function of 

2 

, 

transmittins the character at the current pos ition. 

4 

1030 R2_TC 

EQU 1030H 


6 

7 

, 

Transmit line. This 

performs the function of transmittins 

s 

9 

. 

the line at the current position. 

10 

11 

1033 R2_tL 

EQU 1033H 


12 

13 

. 

Transmit pase. This 

performs the function of transmittins 

14 

15 

. 

the pase to the port 

that is not selected. 

16 

17 

1036 R2„TP 

EQU 1036H 


IS 

19 

. 

Transmit 25th line. 

This performs the function of transmittins 

20 

21 

. 

the 25th line to the 

port that is not selected. 

22 

23 

1039 R2_T25L 

EQU 1039H 


24 

. 

Print pase. This performs the function of transmittins the 

26 

27 


pase to the opposite 
CRS LF at the end of 

port in a form proper for print ins (uses 
each line). 

28 

29 

103C R2_PRNT 

EQU 103CH 



30 

31 


32 

33 


7 

Displ a-i 

clock. This updates the time on the 25th line. 

34 

103F 

R2_DCLK 

EQU 

103FH 

35 





36 





37 


7 

Display 

• 25th status line. This displays the system status 

38 


7 

on the 

25th line if the option is enabled and the user does 

39 


7 

not have the 25th line enabled. 

40 





41 

1042 

R2_DISP 

EQU 

1042H 


c c c c c 


c 


C € C 


c c 




































3 


1 


3 


3 


3 


3 3 3 
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1 

•7-p 



; ; 

INTERRUPT VECTORS 


3 



; 




4 







5 







6 

7 




RESET 

vector 


8 

0000 



ORG 

OOOOH 


9 0000 

80 

2E 


SUMP 

START 

• Start of program 

10 







11 







12 



; 

Exterriril interrupt re<=iue5t 0 


13 



? 




14 

0003 



ORG 

0003H 


15 0003 

30 

AF 

02 

JNB 

EA, 11 

; Double check 

16 0006 

80 

oo 


SUMP 

IEXT10 

“ Start DMA transfer 

17 0003 

D2 

89 

II: 

SETS 

TCON.1 


18 OOOA 

32 



RET I 



19 







20 







21 



; 

T i me r 

0 interrupt vector 


22 







23 

OOOB 



ORG 

OOOBH 


24 OOOB 

30 

AF 

02 

JNB 

EA, 12 

? Double check 

25 OOOE 

80 

ID 


SJMP 

ITMRO 

; stop DMA transfer 

26 0010 

D2 

8D 

12: 

SETB 

TCON.5 


27 0012 

32 



RETI 



28 







29 







30 



; 

External interrupt request 1 


31 



; 




32 

0013 



ORG 

0013H 


33 0013 

30 

AF 

03 

JNB 

EA, 13 

; Double check 

34 0016 

02 

lOOF 


LJMP 

R2„IRQ 

? Interrupt request 

35 0019 

D2 

8B 

13: 

SETB 

TCON. 3 


36 00IB 

32 



RETI 



37 







38 







39 




Serial 

port interrupt vector 


40 



; 




41 

0023 



ORG 

0023H 


42 0023 

30 

AF 

03 

JNB 

EA, 15 

■ Cl 0 u b 1 e c h e c k 

43 0026 

02 

1012 


LJMP 

R2_£;ERIAL 

; Serial port 

44 0029 

32 


15: 

RETI 



45 







46 







47 



; 

Jumps 

to other locations 


43 







49 002A 

02 

1006 

lEXTIO: 

LJMP 

R2_STARTDMA 

; Start DMA Jump 

50 002D 

02 

1009 

ITMRO: 

LJMP 

R2_SrOPDMA 

7 Stop DMA Jump 
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..1 

2 

3 





. 

.I n.i t .i.a.l. i .z.e. .5 y s t.^ m. 






• 

Set st^cK PC'i n ter .and call rout i ne . t o. .set. .U.P. ^.verY.t.hi ng. 

4 

..5 


0030 




.QRQ. 

.;3PH.?. 

Somewhat arbitrar-Y . 

6 

7 

0030 

...75. 

. 8 . 1 ..... 

... .5.F. 

.SJ.ART.v... 

.no.v. 

SP, #$TACK ; 

I .n i .t i a 1 .i. ? R. ?. t PvC: K. p.c l.n t.^ r. 

8 

9 

0033 

12 

1000 



LCALL 

R2_IN ; 

Initialize ever-Ything else 

10 

11 . 

12 









13 





? ? 

MAIN - 

main control loop 


14 





? 




15 





7 

»MAIN* 

is in charge of giving control to the proper routine 

16 





; 

whenever there is a character present in one of the FIFOs. 

17 









18 









19 

0036 

12 

1024 


main: 

LCALL 

R2-.BACK ; 

Background hook . 

20 









21 

0039 

?P. . . 


... .06.... 


JB. 

HSSTQPF, MNl ! 

IF not h01 .d.gr.^^.n..THEN. 

22 

003C 

31 

... 

F6 



ACALL 

FCIF ; 

fetch char from input FIFO 

23 

003E 

40 

.02 . 



. ac . 

..MNl.?. 

IF character THEN. 

24 

0040 

11 

79 



ACALL 

IFCP ? 

processes character 

25 









26 

0042 

30 

2E 

20 

MNl: 

JNB 

ONLINE, MN2 ? 

IF online AND 

27 

0045 

30 

13 

ID 


JNB 

OKTRANS, MN2 ? 

IF output port free THEN . 

28 

0048 

20 

02 

03 


JB 

PORTF, MNIA ; 

IF auxiliar-Y port OR 

29 

004B 

30 

3E 

03 


JNB 

HNDSHK, MNIB 

IF hardware handshake THEN 

30 

004E 

20 

B5 

14 

MNIA: 

JB 

CTS> MN2 ; 

if" not Cts THEN skip 

31 

0051 

20 

16 

11 

MNIB: 

JB 

XOFFRCVED, MN2 ? 

IF not --XOFF- received THEN . 

32 

0054 

51 

4C 



ACALL 

FCOF ! 

fetch char from output FIFO 

33 

0056 

40 

OD 



JC 

MN2 ? 

IF character THEN 

34 

0058 

B4 

13 

02 


CJNE 

A, #XOFF, MNIC ; 

IF char = xoff THEN 

35 

Q05B 

D2 

11 



SETB 

UXOFFSENT 

flag user xoff sent . 

36 

005D 

B4 

11 

02 

MNIC: 

CJNE 

A, #XON, MNID ; 

IF char r= xon THEN 

37 

0060 

C2 

11 



CLR 

UXOFFSENT ? 

clear user xoff sent . 

38 

0062 

12 

1015 


MNID: 

LCALL 

R2.-XMT ; 

transmit character 

39 









40 

0065 

20 

IF 

06 

MN2: 

JB 

KBDISF, MN3 ? 

IF keYboard enabled THEN 

41 

0068 

51 

B6 



ACALL 

FCKB ; 

fetch char from keYboard 

42 

■0C)6A ' 

40 

02. 



JC 

MN3 ; 

IF keYboard data THEN 

43 

006C 

51 

EE 



ACALL 

KBCP ? 

process keYboard data 

44 









45 

006E 

30 

37 

C5 

MN3: 

JNB 

L250N, MAIN ? 

IF 25th status enabled AND 

46 

0071 

20 

15 

C2. 


JB 

L25EN, MAIN ? 

IF 25th line disabled THEN 

47 

0074 

12 

103F 



LCALL 

R2_DCLK ; 

displaY clock ever-Y second 

48 









49 

0077 

30 

BD 



SJMP 

MAIN ? 

Go forever 


cccccc ccccc 










































3 


3 


3 


3 


3 


3 3 3 3 3 


3 
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1 





. . 

IFCP 

“ input FIFO character processor 

2 

3 





? 

7 

*IFCP* interprets characters 

which have been received (or 

4 

crj 





7 

7 

struck on the keyboard if off 
function). If the character 

-line or keyed as a local 
is part of an escape sequence 

6 

7 





7 

m 

7 

then 
the -- 

control is given directly to that routine by means of 
dispatch address-. If it is a control character then it 

8 

9 





7 

7 

is looked up in »CTLTAB*. If 
appropriate routine, otherwis 

found the program Jumps to the 
e the character is discarded. If 

10 

11 





7 

7 

it is 
after 

a displayable character it is placed on the screen 
check ins for graphics mode, attributes, etc. 

12 ; . 

13 ; 

14 

15 






ENTRY 

(A) = character from 

input FIFO 

16 

17 






EXIT 

none 


18 

19 





’ 

USES 

al 1 


20 

21 

0079 

B4 

18 

06 

IFCP: 

CJNE 

A, #CAN, IFPA 

; IF canceled AND 

22 

007C 

007F 

20 

12 

43 

082F 

03 


JB 

LCALL 

HAZ, IFPA 

SETNORM 

; IF not Haz mode THEN 
; Restore dispatch address 

24 

25 

0082 

CO 

16 


IFPA: 

PUSH 

DSADRL 

" Jump to the 

26 

27 

0084 

0086 

CO 

22 

15 



PUSH 

RET 

DSADRH 

* -dispatch address- 

28 

29 

0087 

B4 

OD 

12 

norm: 

CJNE 

A, #CR, IFPl 

? IF carriage return THEN 

30 

31 

008A 

OOSD 

30 

E5 

36 

12 

OF 


JNB 

MOV 

HSMODEF, IFPl 

A, YPOS 

• IF hold screen mode THEN 

32 

33 

008F 

0090 

04 

B5 

18 

00 


INC 

CJNE 

A 

A, BFIX, NRMO 

" set y-pos to check 

? with bottom fixed region 

34 

0093 

0095 

40 

D5 

05 

IE 

02 

NRMO: 

JC 

DJNZ 

NRMl 

HSLINE, NRMl 

; IF ypos >= bottom THEN 

? decrement line 

36 

37 

0098 

009A 

D2 

74 

22 

OD 


NRMl: 

SETB 

MOV 

HSSTOPF 

A, #CR 

" IF zero THEN stop disp 

; restore carriage return 

38 

39 





. 

Check 

for monitor mode and control characters 

40 

41 

009C 

30 

3A 

OD 

IFPl: 

JNB 

MONITOR, IFPIB 

; IF monitor THEN 

42 

43 

009F 

00 A1 

C2 

B4 

08 

20 

00 


CLR 

CJNE 

RVVA 

A, #•- IFPIA 

" start with normal display 

44 

45 

00A4 

00A6 

50 

D2 

5E 

08 


IFPIA: 

JNC 

SETB 

IFP6 

RVVA 

; IF control character THEN 

“ .make it reverse video 

46 

47 

00A8 

OOAA 

44 

80 

40 

58 



ORL 

SJMP 

A, #010000008 

IFP6 

• convert to ordinary char 

_. skip ahead 

48 

49 

OOAC 

B4 

20 

00 

IFPIB: 

CJNE 

A, #■' •••, IFPIC 

“ Normal place to Jump to 

50 

51 

OOAF 

OOBl 

40 

B4 

03 

7F 

21 

IFPIC: 

JC 

CJNE 

IFP2 

A, #RUBOUT, IFP3 

; IF control character OR 
; IF •r.ubout- THEN 

52 

53 

54 





; . 

Charai; 

:ter is a control '“h^raciter 

55 

00B4 

* 75 

.f;o. 

08 

JFP2?. 

. MOV 

....e>..#.CTAP.lL. 

_. Ge t.. .tab 1 e i n f o 

56 

57 

00B7 

OOBA 

90 

20 

0119 

40 

12 


MOV 

JB 

DPTR, #CTAB1 

ANSI, IFP2A 

; IF not AN8I mode OR 
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1 

OOBD 

20 

41 

OF 


JB 

ZDS, IFP2A 

; IF not ZDS mode THEN 

2 

OOCO 

75 

FO 

OE 


MOV 

B, #CTAB2L 

' get other table info 

3 

00C3 

90 

0107 



MOV 

DPTR, #C:TAB2 


4 

00C6 

20 

42 

06 


JB 

ADM3, IFP2A 

; IF not ADM 3 mode THEN 

5 

00C:9 

.. .7.5. 

.FQ 

06 


MpV 

B, #CTAB3L 

; get other table info . 

6 

OOCC 

90 

0128 



MOV 

DPTR, #CTAB3 


. 7 

PQCE... 

...3.1.,.. 

3A 


JFP2AS 

ACALL 

STAB 

? Search, .the. .tabl.e. . . 

8 

.9. 





? 

Control 

character found in 

table, go to associated address. 

10 

.U. 

12 





7 

Subroutine return will cause return to main idle loop 

OODl 

40 

33 


7 

JC 

IFPRET 

; IF found THEN 

.13 

.001113... 

...e.4. 




CLR 

A 


14 

00D4 

73 




JMP 

©A+DPTR 

; Jump to address in (DPTR) 

.15 









16 





7 

Character is a displavable 

character 

.17. 





7 




18 

00D5 

30 

43 

06 

IFP3: 

JNB 

HAZ, IFP3A 

“ IF Hazel tine mode AND 

.19 

. 00D8... 

B4 

. .7E.. 

03 


CJNE 

A, IFP3A 

; IF char = THEN 

20 

OODB 

02 

067B 



LJMP 

ESCCODE 

? do escape stuff 

. ZX. 

.QO.BE... 

... 30. 

..OP.. 

.13... 

IFP3A: 

JNB 

pRp.H, IFP5 

? IF in graphic? mode THRN 

22 

OOEl 

B4 

5E 

06 


CJNE 

A, #5EH, IFP4 


.23. 

. P.0E4... 

...20 . 

..OF 

OD 


.J.P. 

. .AUTPRP.H.,.. .I.ERS. 

.;.IF .^.l.ti&.r A^.t.^. .THEN . dQO.t. .m^.P. 

24 

00E7 

74 

7F 



MOV 

A, #7FH 

; IF 5EH THEN map to 7FH 

. 

.0.Qe:.9... 

...03. 




.S.ET.B.... 

. .C. 


26 

OOEA 

40 

08 


IFP4: 

JC 

IFP5 

" IF in graphics range THEN 

..27. 

.O.QE.Q 

54 

IF 



ANL 

A, #0001111 IB 

■ mask to graphic character 

28 

OOEE 

30 

OF 

03 


JNB 

ALTGRPH, IFP5 

; IF alt graphic set THEN 

29 

pOFl 

D3 




SETB 

c 

" set carr-Y and 

30 

bOF2 

80 

02 



SJMP 

IFP5A 

; place into alt mode 

31 









32 









33 





■ 

Check for insert character 

mode . 

34 





; 




35 

00F4 

A2 

OC 


IFP5: 

MOV 

C, ALTCHARA 

; Get alt char mode 

36 

00F6 

92 

E7 


IFP5A: 

MOV 

ACC.7, C 

; Place into data bvte 

37 









38 

OOFS 

30 

21 

09 


JNB 

ICMODEF, IFP6 

; IF insert character mode THEN 

39 

OOFB 

CO 

EO 



PUSH 

ACC 

• save character . 

40 

OOFD 

31 

A9 



ACALL 

SPF 

? skip protected fields 

41 

OOFF 

... .1.2. 

ODCl 



CALL 

PIC 

7 insert blank character 

42 

'oi'o 2 

DO 

EO 



POP 

ACC 

" restore character 

43 









44 

0104 

31 

57 


IFP6: 

ACALL 

PUTCHR 

7 Put character onto screen 

45 

0106 

22 



IFPRET: 

RET 




c c c c c 


c c 


c c 


















































J J J 


y 9 


3 3 3 3 
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1 



■; 

CTABl/2, 

/3 - control character 

tables 

5 



• 

•9 




3 



■ 

*CTAB1# 

contains all control 

codes for the ANSI and ZDS 

4 

5 



? 

emulation modes. 


6 



7 

#CTAB2* 

contains all control 

codes for the ADM 3 emulation 

7 




mode. 



.8 

9 



» 

*CTAB3* 

contains all control 

codes for the Hazel tine 1500 

10 



• 

7 

emulation mode. 


11 



7 




12 



m 

7 

Table entries are: The control character followed bv the 

13 



7 

address 

of the routine which 

performs the re<=iuested function. 

.14' 







15 







i‘6 


si'cir ■■ 

CTAB2 

EQLI 

i 


17 







18 

616 ':^ 

OB 


DB 

OBH 

; Vertical tab 

19 

0108 

0C8D 


DW 

CUP 

• Cursor up 

20 







21 

OlOA 

OC 


DB 

OCH 

• Form feed 

22 

61 OB 

0C64 


DW 

CRt 

5 Cursor right 

23 







24 

OlOD 

OE 


DB 

OEM 

; Shift out 

25 

OlOE 

0FB3 


DW 

EKI 

; Enable keyboard input 

26 







27 

0110 

OF 


DB 

OFH 

; Shift in 

28 

0111 

0FB9 


DW 

DKI 

7 Disable keyboard input 

29 







30 

0113 

lA 


DB 

lAH 

7 Substitute 

31 

0114 

OBAC 


DW 

CLRS 

7 Clear screen 

32 







33 

0116 

IE 


DB 

lEH 

7 Record separator 

34 

0117 

0C36 


DW 

SCH 

7 Set cursor hiome 

35 







36 


0119 

CTABl 

EQLI 

$ 


37 







38 

0119 

IB 


DB 

ESC 

7 Escape 

39 

Oil A 

067B 


DW 

ESCCODE 

7 Escape code processor 

40 







41 

one 

08 


DB 

BS 

7 Backspace 

42 

01 ID 

0C3D 


DW 

PBS 

7 Perform backspace 

43 







44 

01 IF 

09 


DB 

HT 

7 Horizontal tabulation 

45 

0120 

05C1 


DW 

TAB 

7 Tab to next column 

46 







47 

0122 

OE 


DB 

OEM 

; Shift out 

48 

0123 

0F8i 


DW 

GIPICK 

7 Pick G1 character set 

49 







50 

0125 

OF 


DB 

OFH 

? Shift in 

51 

0126 

0F7B 


DW 

GOPICK 

; Pick GO character set 

52 







53 


0128 

CTAB3 

EQLI 



54 







55 

0128 

OA 


DB 

LF 

7 Line feed 

56 

0129 

0555 


DW 

PLFCR 

• Perform LF and/or CR 

57 
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1 

012B 

OD 


DB 

CR . 

.L. C.^ r.r- i.4. .r; f-.t y.r; D. 

3 

012C 

054F 


DW 

PCRLF 

; Perform CR and/or LF 

4 

012E 

07 


DB 

BELL 

; Be 1 1 

5 

012F 

066B 


.D.W. 

. ...R.IN.G. 

.. .B .1 . 

6 

7 


0008 

CTABIL 

EQU 

(^-CTABl)/3 

; Table length . 

8 

9 


OOOE 

CTAB2L 

EQLI 

($-CTAB2)/3 

; Table length 

10 

0131 

08 


DB 

BS 

; Back space 

11 

0132 

0C51 


DW 

HCLFT 

? C u r s 0 r 1 e f t 

12 

13 

0134 

10 


DB 

lOH 

; Data link escape 

14 

15 

0135 

0C79 


DW 

HCRT 

; Cursor right 

16 

0137 

09 


DB 

HT 

" Horizontal tabulation 

17 

, 0138 

0636 


DW 

HTAB 

* S pe c i a 1 f u n c t i o n 

18 







19 


0006 

CTAB3L 

EQU 

($~CTAB3)/3 

; Table length . 


c c c 


c c c 


c 


c 


c 


c c 







































3 3 5 3 5 


3 3 3 3 
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1 





5 ? 

STAB - 

search table 

2 

3 





? 

7 

^^STAB* 

searches tables of specified length for a match 

4 

5 





7 

0 

7 

with the first character in an entry. 

6 

7 





m 

7 

9 

7 

ENTRY 

(A) = character to match 

8 





• 

7 


(B) = table length in number of entries 

9 





m 

7 


(DPTR) = table address 

lO 





• 

7 



11 





? 

EXIT 

(A) = original charac ter 

12 





7 


(B) = number of entries left to search + 1 

13 





m 

7 


(DPTR) = first address after character match 

i4 





m 

7 


'C-' - set if no match7 clear otherwise 

15 





7 



.16- 





7 

USES 

A, B, DPTR, WORK 

17 








18 








19 

013A 

FC 



STAB: 

MOO 

WORK, A • Save character to match 

20 








21 

013B 

E4 



STl: 

CLR 

A ; REPEAT 

22 

013C 

93 




Move 

A, ©A+DPTR ; get character from table 

23 

013D 

A3 




INC 

DPTR 5 bump to address high bvte 

24 

013E 

■ BS■ ‘ ■ 

04 

OE 


CJNE 

A, WORKA, ST2 " compare char with work 

25 

0141 

E4 




CLR 

A ; IF character = work THEN 

26 

0142 

93 




Move 

A, ©A+DPTR ; get address high bvte 

27 

0143 

CO 

EO 



PUSH 

ACC ; save on stack 

28 

0145 

A3 




INC 

DPTR • bump to address low bvte 

29 

0146 

E4 




CLR 

A 

30 

0147 

93 




Move 

A, @A+DPTR ? get address low bvte 

31 

0148 

F5 

82 



MOV 

DPL, A ; save address low bvte 

32 

014A 

DO 

83 



POP 

DPH • POP address high bvte 

33 

014C 

EC 




MOV 

A, WORK ; restore original character 

34 

014D 

C3 




CLR 

C ? clear 'C' for ok 

35 

014E 

22 




RET 

? return 

36 








37 

014F 

A3 



ST2: 

INC 

DPTR ; bump to address low bvte 

38 

0150 

A3 




INC 

DPTR ; bump to next entrv if anv 

39 

0151 

D5 

FO 

E7 


DJNZ 

B, STl ; UNTIL Gentries = 0 

40 








41 

0154 

EC 




MOV 

A, WORK ? Restore original character 

42 

0155 

D3 




SETB 

C ; Flag 'C' for no match 

43 

0156 

22 




RET 
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1 





. . 

PUTCHR 

- put character onto 

screen . 

2 





7 

•«-PUTCHR-«- puts the character 

0 n 1 0 


4 

5 






wrap around at the end of a 

1 ine 

for auto CR or LF. 

ky 

7 





7 

ENTRY 

(A) = character 



8 

9 





7 

7 

EXIT 

none 



10 

11 






USES 

A, B, DPTR, TEMP, PTRl 


12 

13 

14 

15 

0157 

D2 

14 


PUTCHR: 

SETB 

DX 


FI as that cursor moved 

16 

17 

0159 

CO 

EO 



PUSH 

ACC 

‘ 

Save character 

18 

19 

015B 

31 

A9 



ACALL 

SPF 


Skip anv protected fields 

20 

21 

015D 

0160 

85 

85 

14 

13 

82 

83 


MOV 

MOV 

DPL, LINADL 

DPH, LINADH 

■ 

Get line address 

2'? 

23 

0163 

0166 

53 

E5 

S3 

21 

EF 


ANL 

MOV 

DPH, #ATRANL 

A, ATTRIBUTES 

’ 

Mask to attribute memorv 

24 

25 

0168 

0169 

f6' 

43 

83 

10 


MOVX 

ORL 

©DPTR, A 

DPH, ttCHRORL 

; 

Output current attributes 

Mask to character memorv 

26 

27 

016C 

DO 

EO 



POP 

ACC 


Restore character 

28 

29 

016E 

FO 




MOVX 

©DPTR, A 

■ 

Store into screen memory 

30 

31 

016F 

0171 

E5 

B4 

11 

4F 

09 


MOV 

CJNE 

A, XPOS 

A, #MAXCHAR, PUl 

7 

IF cursor at end of line AND 

32 

33 

0174 

0177 

30 

B1 

2B 

5C 

OF 


JNB 

ACALL 

AUTOWRAP, PU2 

PCR 

; 

IF auto wrap on THEN 

perform carriage return 

.34’ 

35 

■0179 • ■ 
017B 

■fil' 

80 

61 

09 



ACALL 

SUMP 

PLF 

PU2 


perform line feed 
exit out 

36 

37 

017D 

05 

11 


PUl: 

INC 

XPOS 

- 

Bump -XPOS- 

38 

39 

017F 

0180 

A3 

85 

82 

14 


INC 

MOV 

DPTR 

LINADL, DPL 

; 

Bump 1 0 cat ion in memorv 

Save new line address 

. 40 

41 

0iS3’" 


83 

13 


.MOV. 

LINADH, DPH 



.42- 

0186 

21 

A9 


PU2: 

AJMP 

SPF 

; 

Skip any protected fields 


c c c 


c c c 


c c 


c 


c 


c 






































3 3 3 3 5 


3 3 


3 
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1 




; ; 

CPF - 

check protected fields 



2 

3 




• 

7 

7 

*CPF* 

checks to see if the current position is protected. 

4 

5 




7 

• 

7 

If so 

it returns a value in the 

carrv flas. 

6 

7 




7 

7 

ENTER 

XPOS and YPOS at position 


8 

9 




• 

7 

7 

EXIT 

(C) = set if protected? 

clear otherwise 

10 




m 

7 





11 




7 

USES 

A, B, DPTR? TEMP, WORK, 

PTRl 

12 









13 









14 0188 

E5 

3F 


CPF: 

MOV 

A, PFIELD 

; 

Get protected fields 

15 018A 

70 

02 



JNZ 

CPFl 

; 

IF none protected THEN 

16 018C 

C3 



CPFRl: 

CLR 

C 

; 

clear carry 

17 018D 

22 




RET 


; 

and return 

18 









19 018E 

FC 



CPFl: 

MOV 

WORK, A 

; 

Save value 

20 018F 

E5 

11 



MOV 

A, XPOS 



21 0191 

...8?!.... 

12 

Fp 


. Moy... 

...B.>...YP.OS. . 



22 0194 

B1 

03 



ACALL 

CLA 

; 

Calculate line address 

23 . 









24 0196 

53 

83 

EF 


ANL 

DPH, #ATRANL 

; 

Mask to attribute memory 

25 0199 

EO 




MOV)( 

....A.,..^PP.TF:.. 

; 

.t. . .Qu r.r ^.h t. . 5kt t.r i.b y.t ^. 

26 019A 

54 

OF 



ANL 

A, #0000111 IB 


Mask to get only attributes 

.27. 









28 019C 

70 

05 



JNZ 

CPF2 


IF no attributes set THEN 

29 019E 

BC 

80 

EB 


. C JNE 

WORK, #80H, CPFRl 


IF not protected THEN return 

30 01A1 

80 

04 



SJMP 

CPFR2 

; 

ELSE return protected 

:?1 O^A:? 

.. .5i.C . 



CPF2: 

. mi. ... 

A, WORK . 

. .*.. 

E.U.S.5. .m^.§ K. wi t.h . .F?r.Q t.^ c.t^.d .. 

32 01A4 

B5 

04 

E5 


CJNE 

A, WORKA, CPFRl 


IF no match THEN return 

. .33.. 









34 01A7 

D3 



CPFR2: 

SETB 

C 

; 

Set carry 

. 35..CUA.3... 

...22. 




. RET.... 


..“.. 

. 
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1 




. . 

SPF - 

skip over protected fields 


. 3 




■ 

. . 

#SPF» 

gh^.cks . to . se^ ..if., the .f.Mr r:^.n t 

.. p.o ^ .i. t i. Cf A . i.? . P r.Q t ^ P.t f . 

4 




7 

If so 

then the cursor is moved to 

the next unprotected 






..cbar:a'C.t.<?r. . jt-.i c.n . .qo. . t.hf. 

If there are no unprotected .. . 

6 




U 

7 

positions from the current cursor 

position to the end of the 

7 




7 

screen 

then the cursor is moved to 

the HOME position. 

8 




7 

The screen address is only updated 

if the cursor position 

9 




; 

changes. 


10 ; 

11 ; 

12 




7 

ENTRY 

none 


13 




7 




14 




7 

EXIT 

none 


15 




7 




16 




7 

USES 

A, B, DPTR, WORK, TEMP, PTRl 

17 








18 








19 

01A9 

31 

88 

SPF: 

ACALL 

CPF 

Check protected fields 

20 

OlAB 

40 

01 


JC 

SPO 5 

IF not protected THEN 

21 

01 AD 

22 



RET 

7 

return 

22 








23 

OlAE 

E5 

11 

SPO: 

MOV 

A, XPOS 


24 

OIBO 

B4 

4F 11 


CJNE 

A, #MAXCHAR, SP2 ? 

IF end of 1ine THEN 

25 

01B3 

75 

11 00 


MOV 

XPOS, #0 ; 

beginning of line 

26 

01B6 

E5 

12 


MOV 

A, YPOS 


27 

01B8 

B4 

17 05 


CJNE 

A, #MAXLINE-1, SPI ? 

IF end of screen THEN 

28 

OIBB 

75 

12 00 


MOV 

YPOS, #0 ? 

beginning of screen 

29 

OIBE 

81 

EA 


AJMP 

BLINAD ; 

new address and return 

30 








31 

01 CO 

05 

12 

SPi: 

INC 

YPOS 5 

ELSE bump line number 

32 

01C2 

80 

02 


SJMP 

SP3 ; 

calc address and go 

33 








34 

0104 

05 

11 

SP2: 

INC 

XPOS ; 

ELSE bump column number 

35 

01C6 

91 

EA 

SP3: 

ACALL 

BLINAD ? 

calc new address 

36 

oi’cs ■ 

80 

DF 


SJMP 

SPF ? 

keep on going 


C C C C € 


c c c c 







































333 353 33333 


'Z29R0MV 'MiCROBENCH’ ’8051 ’CROSS ’ASSEMBLER (’ VI ’)’~21 ’3 ’24’~F’EB’~8’:3 15: 30: 06 PAGE 25 

Z-29. COMPUTER TERMINAL FIRMWARE VERSION 1.03 ... 

t ;; PCIF - place character in input FIFO 

. 2 .? 

3 ; -h-PCIF# places a sinsle character ir'to the input FIFO^ 

.4. i . 


6 .;.entry .(A) ■ = ■ character 

7 ; 


8 

9 




? 

EXIT 

(A) = character 

■‘C-' = set if no room^ 

clear otherwise 

10 

11 




. 


-FO- = set if XOFF is 

needed, clear otherwise 

12 

13 




* 

USES 

A B, DPTR 


14 

15 OICA 

C2 

AF 


PCIF: 

CLR 

EA 

; Lock out entries 

16 OICC 

17 OICF 

75 

85 

83 

OC 

57 

82 


MOV 

MOV 

DPH, #HIGH (IBLIP) 

DPL, ISTORE 

; Load input buffer pointer 

18 01D2 

19 01D3 

FO 

F5 

FO 



MOVX 

MOV 

©DPTR, A 

B, A 

' Write character into FIFO 
; Save temporary 

20 

21 01D5 

E5 

OE 



MOV 

A, ICOUNT 


22 01D7 

23 01DA 

B4 

D3 

20 

03 


CJNE 

SETB 

A, #ILEN, PIl 

C 

? IF queue is full THEN 
; set ■C' for no room 

24 OIDB 

25 

80 

14 



SUMP 

PIR 

' and exit out 

26 01 Dill 

27 OIDF 

C2 

B4 

D5 

15 

02 

PIl: 

CLR 

CJNE 

FO 

A, #IHI, PI2 

• No -XOFF- until otherwise 
; IF queue at XOFF point THEN 

28 01£2 

29 

D2 

D5 



SETB 

FO 

• flag that -XOFF- is needed 

30 01E4 

31 01E6 

05 

05 

OE 

OC 


PI2: 

INC 

INC 

ICOUNT 

ISTORE 

• Bump count 

; Bump store and check wrap 

32 01E8 

33 OlEA 

E5 

B4 

OC 

FO 

03 


MOV 

CJNE 

A, ISTORE 

A, #LOW (IBUF+ILEN), 

PIS 

34 OlED 

35 

75 

OC 

DO 


MOV 

ISTORE, #LOW (IBUF) 


36 OlFO 

37 OlFl 

C3 

D2 

AF 


PI3: 

PIR: 

CLR 

SETB 

C 

EA 

; F1 aq evervthing OK 
; Enable entries 

38 01F3 

39 01F5 

E5 

FO 



MOV 

RET 

A, B 

• Restore character 
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. X. 





.?;.FCIF 

f.et.ch. .f r.C'm 

jrjpyt FIFO . 

.3. 





.?..?<:FCIF*., 

. i P.. . .t C«.. f t.Q b.. . 5 .i. r* ?. 1 . .C.b fr.. f j; . .t . .i. n p y t. 

4 





; FIFO if 

anv are available. 


.5. 





• 



6 





; 



7 





? ENTRY 

none 


S 

9 





? EXIT 

(A) ™ character if available 

10 





; 

■C' = set if no character, clear otherwise 

11 





; 



12 

13 





; USES 

A, B, DPTR 


14 








15 

01F6 

E5 

OE 


FCIF: MOV 

A, ICOUNT 


16 

01F3 

70 

02 


JNZ 

FIl 

• IF no data in *=iueue THEN 

17 

OlFA 

D3 



SETB 

C 

; set carry and return 

18 

OlFB 

22 



RET 



19 








20 

OlFC 

B4 

09 

03 

FIl: CJNE 

A, #ILO, FI2 

; IF low water mark THEN 

21 

OlFF 

12 

1018 


LCALL 

R2-X0N 

7 send -XON- now 

22 








23 

0202 

C2 

AF 


FI2: CLR 

EA 

7 Lock out entries 

24 

0204 

75 

83 

57 

MOV 

DPH, #HIGH (IBUF) 


25 

0207 

85 

OD 

82 

MOV 

DPL, IFETCH 

7 Load input buffer pointer 

26 

020A 

EO 



MOVX 

A, ©DPTR 

7 Read character from FIFO 

27 

020B 

F5 

FO 


MOV 

B, A 

7 Save temporary 

28 








29 

020D 

05 

OD 


INC 

IFETCH 

7 Bump fetch and check wrap 

30 

oioF ■ 

■' E5 

OD 


MOV 

A, IFETCH 


31 

0211 

B4 

FO 

03 

CJNE 

A, #LOW <IBUF+ILEN), 

FIS 

32 

0214 

75 

OD 

DO 

MOV 

IFETCH7 #LOW (IBUF) 

7 Reset value of fetch pointer 

33 








34 

0217 

15 

OE 


FI3: DEC 

ICOUNT 

7 Decrement count 

35 

0219 

21 

FO 


AJMP 

PI3 

7 Return (saves ROM) 


c c c c 


c c c c c 








































3 


3 

3 

3 

3 3 3 3 

3 
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1 



; ; 

LCIF - 

look at next character on input FIFO 


3 



m 

7 

m 

7 

#LCIF^f 

returns the next character from the input FIFO if there 


4 

5 



7 

7 

is one but does not take it off the FIFO. This is needed for 
•'look ahead' applications. 


6 ; 

7 ; 

8 

9 




ENTRY 

none 


10 

11 



; 

EXIT 

(A) = character if available 

•'C' = set if no character* clear otherwise 


12 

13 



« 

USES 

A* DPTR 


14 

15 

16 021B 

17 021D 

E5 

70 

OE 

02 

LCIF: 

MOV 

JNZ 

A, ICOUNT 

LII 7 IF no data in <nueue THEN 


18 02IF 

19 0220 

D3 

22 



SETB 

RET 

C " set carr-i' and return 


20 

21 0221 

75 

83 

57 LIi: 

MOV 

DPH* #HIGH (IBUF) 


22 0224 

23 0227 

85 

EO 

OD 

82 

MOV 

MOVX 

DPL* IFETCH ; Load input buffer pointer 

A* ©DPTR 7 Read character from FIFO 


24 0228 

25 0229 

C3 

22 



CLR 

RET 

C 7 FI as ever-vthins ok 
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1 





• ; 

PCOF - 

place character in output FIFO 

3 





; 

*PCOF# 

places a single character into the output FIFO and 

4 





; 

checks 

f 0 r 0 n 1 ine and half du p 1 ex. 

6 

7 





; 

ENTRY 

(A) = character 

8 

9 





; 

EXIT 

(A) = character 

10 





? 


•'C' == set if no room in FIFO 7 clear otherwise 

11 





; 



12 

13 





■ 

USES 

A, B, DPTR 

14 








15 

022A 

20 

2E 

02 

PCOF: 

JB 

ONLINE, POl ? IF offline THEN 

16 

022'D 

80 

9B 



SUMP 

PCIF 7 Place on input and return 

17 








18 

022F 

20 

2F 

02 

POl: 

JB 

FULLbPL><7 P02 ; IF in half duplex mode tHEN 

19 

0232 

31 

CA 



ACALL 

PCIF 7 place on input also 

20 

21 

0234 

F5 

FO 


PO 2 : 

MOV 

B, A 7 Save temporary 

22 

0236 

E5 

OF 



MOV 

A, OSTORE 

23 

0238 

B4 

F7 

04 


CJNE 

A, #LOW (OLEN), P03 ? IF store = queue length THEN 

24 

023B 

D3 




SETB 

C 7 set •■C" for full 

25 

023C 

E5 

FO 



MOV 

A, B 7 restore char and return 

26 

023E 

22 




RET 


27 








28 

023F 

C3 



P03: 

CLR 

C ; ELSE clear -C' 

29 

0240 

75 

83 

57 


MOV 

DPH, #HIGH (OBUF) ? set up the output 

30 

0243 

8 F 1 

OF 

82 


MOV 

bPL, OSTORE 7 buffer pointer 

31 

0246 

E5 

FO 



MOV 

A 7 B ; restore character 

32 

^:)^48' 

.. .... 




. Hcm'- 

©DPTR, A 7 write character to buffer 

33 

0249 

05 

OF 



INC 

OSTORE 7 bump store and return 

34 


• • 22 ■ ■ ■ ■ 




.per. 



c c c c c 


C C C € C 


c 



































3 3 3 5 3 


3 3 3 3 
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1 





. . 

FCOF - 

fetch character fr«3rn output FIFO 

2 

3 





• 

m 

7 

■«-FCOF* 

fetches a character from the output FIFO if anv 

4 





m 

7 

are available. 

5 





m 

7 



6 





? 



7 





■ 

7 

ENTRY 

none 

8 

9 





7 

m 

7 

EXIT 

(A) = character if available 

16 





7 


•'C-' = set if no charactersi clear otherwise 

11 





m 

7 



i2 





m 

7 

USES 

A, B, DPTR 

13 








i4 








15 

024C 

E5 

OF 


FCOF: 

MOV 

A, OSTORE 

.i6 


' fe'$. 

i'o' 

62 


C JNE 

'A, b'FETCH, FOi ? IF store = fetch THEN 

17 

0251 

D3 




SETB 

C ? set •'C^ and return 

.is' 

0252 

22 




RET 


19 








20 

0253 

75 

83 

57 

FOls 

MOV 

bPH, #HiGH (OBUF) 

21 

0256 

85 

10 

82 


MOV 

DPL» OFETCH ? Load output buffer pointer 

22 

0259 

EO 




MOVX 

'A» etiPTR ; Get character from buffer 

23 

025A 

F5 

FO 



MOV 

B, A • Save temporary 

24 

025C 

C2 

AF 



CLR 

EA ? Lock out entries 

25 

025E 

05 

10 



INC 

OFETCH ; Bump fetch pointer 

26 

0260 

E5 

OF 



MOV 

A, bSTORE 

27 








28 

0262 

B5 

10 

06 


CJNE 

A, OFETCH, FOR ? IF store = fetch 'THEN 

29 

0265 

75 

10 

FO 


MOV 

OFETCH, #LOW (OBUF) ? reset the values of 

30 

'0268* 

75 

OF 

FO 


MOV 

OSTORE, #LOW (OBUF) ? fetch and store 

31 








32 

026B 

21 

FO 


for: 

AJMP 

'Pi3 ? Return (saves ROM) 
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1 






PCKB - 

place character out to the 

kevboard 

2 

3 





? 

■«-PCKB# 

outputs hvtes to the kerboarcl using a special handshake. 

4 ; . 

6 

7 






ENTRY 

(A) “ t'Yte to output 


•Z; 

9 





! 

EXIT 

none 


10 

11 





■ 

USES 

A, B, WORK 


12 

13 

026D 

12 

102A 


PCKB: 

LCALL 

R2_KY2 ; 

Keyboard hook 

14 









15 

0270 

30 

91 

OC 


JNB 

KBIN, PKl ; 

IF data THEN 

16 

0273 

CO 

EO 



PUSH 

ACC ; 

save byte 

17 

0275 

51 

B6 



ACALL 

FCKB ; 

fetch char from keyboard 

IS 

0277 

40 

02 



JC 

PKO ; 

IF n 0 ne n 0 uj THEN ex i t 

19 

0279 

51 

EE 



ACALL 

KBCP ; 

ELSE process character 

20 

027B 

DO 

EO 


PKO: 

POP 

ACC 


21 

027D 

80 

EE 



SUMP 

PCKB ; 

and try again 

22 

027F 

C2 

AF 


PKl: 

CLR 

EA ; 

Disable interrupts 

24 

0281 

C2 

90 



CLR 

KBOUT ; 

Reguest keyboard attention 

25 

0283 

75 

FO 

08 


MOV 

B, #8 ; 

Initialize index for 8 bits 

26 

27 

0286 

30 

91 

06 


JNB 

KBIN, PKIA ; 

IF contention THEN 

28 

0289 

D2 

AF 



SETS 

EA ; 

enable interrupts 

29 

028B 

D2 

90 



SETB 

KBOUT ; 

wipe out reguest 

30 

31 

028D 

80 

DE 



SJMP 

PCKB ; 

try again 

32 

02SF 

D2 

AF 


PKIA: 

SETB 

EA ; 

Enable interrupts 

33 









34 

0291 

13 



PKL: 

RRC 

A ; 

REPEAT rotate next bit in 

35 

0292 

7C 

00 



MOV 

WORK, #0 ; 

init count for safety check 

.36' 

■0294 ■ ■ 

■ 20' 

■91 . 

OF 

PK2: 

JB 

KBIN, PK3 ; 

REPEAT wait for reguest 

37 

0297 

51 

B5 



ACALL 

PKDLY ; 

delay some time 

38 

0299 

■ ■ 'Si' 

B5 



.ACiALL^ ■ ■ 

pkdLy 


39 

029B 

51 

B5 



ACALL 

PKDLY 


40 

029D 

• • i • 

B5 



ACALL 

PKDLY 


41 

029F 

51 

B5 



ACALL 

PKDLY 


42 

O'^Al' 

■DC ■ 

FI 



DJNZ 

WORK, PK2 ; 

until check is done 

43 

02A3 

SO 

OE 



SJMP 

PKR 


44 









45 

02A5 

92 

90 


PK3: 

MOV 

KBOUT, C ; 

output data 

46 

■02A7 ' ■ ■ 

■ ■ ■ 7 c ■ 

OO 



MOV 

WORK, #0 ; 

init c 0 u n t f 0 r s a f e t v c h e c k 

47 

02A9 

30 

91 

04 

PK4: 

JNB 

KBIN, PK5 ; 

REPEAT wait for signal 

48 

OSAC 

DC 

FB 



DJNZ 

WORK, PK4 ; 

LiNtiL safety check done 

49 

02AE 

SO 

03 



SJMP 

PKR 


50 









51 

.' 

02B0 

D5 

FO 

DE 

PK5: 

DJNZ 

B, PKL ; 

UNTIL all 8 bits are d 0 n e 

53 

02B3 

D2 

90 


PKR: 

SETB 

KBOUT ; 

Restore status 

54 

02B5 

22 



PKDLY: 

RET 




c c c 


c c c 


c 


c 


c c c 





































3 


3 3 3 3 3 


3 3 3 3 


3 
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1 


FCKB - f€rtch 

character from keyboard . 

2 

3 

f 

? 

*FCKB* takes 

characters from the keyboard us ins a special . 

4 

? 

handshakins. 


5 

» 





6 


7 





7 

ENTRY 

none 


8 

9 





? 

t 

EXIT 

(A) = character 

if available . . 

10 

11 





7 

7 


•'C' = set if no 

character? clear otherwise 

12 

13 





7 

USES 

A, B, OPTR 


i'4 

15 

02B6 

12 

1027 


FCKB: 

LCALL 

R2-KY1 

; Keyboard hook 

.i6‘ 

17 

02B9 

20 

91 

02 


JB 

KBIJM, FKl 

; IF no data THEN 

18 

02BC 

D3 




SEtB 

C 

* set carry and return 

19 

02BD 

7"'2 




RET 



20 







AUTOCNT, #0 


21 

02BE 

75 

39 

00 

FKl: 

MOV 


22 

02C1 

■ ■ 02. 

24 



SETB 

VSPF 

■ tossie screen saver 

24 

25 

02C3 

02C4 

E4 

75 

FO 

08 


CLR 

MOV 

A 

B, #8 

• Init receivins bvte 
? Init index counter 

26 

27 

02C7 

C2 

90 


FKL: 

CLR 

KBOUT 

; REPEAT request data . 

28 

02C9 

51 

El 



ACALL 

FKOLY 

; delay 200 usee 

29 

02CB 

51 

El 



ACALL 

FKOLY 

• set data bit 

30 

02CD 

02CF 

A2 

91 



MOV 

C, KBIN 

31 

02 

90 



SETB 

KBOUT 

; data received 

32 

02 D1 

02D3 

92 

E7 



MOV 

ACC.7, C 

; place data into word 

33 

05 

FO 

02 


OJNZ 

B, FK2 

; IF all 8 bits THEN _ 

34 

35 

02D6 

80 

05 



SUMP 

FKR 

7 exit out 

Ss6 

02 D8 

03 



FK2: 

RR 

A 

; rotate to next bit 

; delay 100 usee . 

37 

02D9 

51 

El 



ACALL 

FKOLY 

38 

39 

02DB 

80 

EA 



SJMP 

fkL 

? UNTIL forever 

40 

41 

02DD 

02DF 

51 

El 


FKR: 

ACALL 

FKOLY 

7 Delay last time to let clear 

C3 




CLR 

C 


42 

02E0 

22 




RET 



43 









44 

45 






Oe 1 ay 

routine 


46 

47 

02 E1 

75 

83 

IE 

FKOLY: 

MOV 

OPH, #30 

7 Delay of 100 usee 

02E4 

05 

83 

FO 

FKOLYl: 

OJNZ 

OPH, FKOLYl 


48 

02E7 

22 




RET 
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. 1 

. . 

.. ~. .1 •?ok. .^X vt'og.r«;l 

. 3 

? 

0 

.*UKB#. .1 oqks . .at. .k.ey.bo.ar.d.. .to. .see. .i f . i t has anv data i t w^nts 


" 

to send to the host 


0 


6 

0 

y 


7 


. entry..... rjp.n^ 

8 

y 


9 

10 

0 

y 


11 


USES none 


14 02E8 

15 02E9 

C:3 

20 

91 

01 

LKB: 

CLR 

JB 

C 

. KBIN, LKBR 

; IF no data THEN 

16 02EC: 

17 02ED 

D3 

22 



LKBR: 

SETB 

RET 

C 

; set carry and return 


c ceccc ccccc 

































3 


3 


3 


3 


3 


3 


3 


3 


Z29R0M; 
*** Z-29 

Mi’CROBENCH 8051 CROSS ASSEMBLER (Vi)-2i8 
COMPUTER TERMINAL FIRMWARE VERSION 1.03 

24-~FEB--83 15: 

30:06 PAGE 33 


1 





" ? 

KBCP ~ 

keyboard character processor . . 

ji 

3 





, 

*KBCP» 

processes any characters received from the keyboard. . 

4 ? 

5 ; . . 

6 

7 





. 

ENTRY 

(A) = byte from keyboard 


8 

9 






EXIT 

none 


10 

11 






USES 

a1 1 


12 

13 

02EE 

20 

E7 

03 

KBCP: 

JB 

ACC.7, KPO ; 

IF ASCII character THEN 

14 

15 

02F1 

02F3 

41 

22 

2A 


KPR: 

AJMP 

RET 

PCOF ; 

output char and return 

. 16 

17 

02F4 

A2 

E6 


KPO: 

MOV 

C, ACC.6 


IS 

19 

62F6 

02F8 

92 

A2 

IC¬ 

ES 



MOV 

MOV 

SHIFTF, C ? 

C, ACC.5 

Save shift value 

20 

21 

02FA 

02FC 

92 

54 

ID 

9F 



MOV 

ANL 

CdNTLF, c ; 

A, #1001111 IB ; 

Save control value 

Mask off shift and control 

22 

•7^0 

02FE 

0301 

30 

61 

IE 

CD 

02 


JNB 

AJMP 

ACCESSF, KPl ; 

KPA ; 

IF access in prosress THEN 
do a Ions Jump 

24 

25 . 

26 

27 






No acc^rss in F>rci3r€-S5 


28 

29 

0303 

0306 

75 

90 

FO 

044B 

09 

KPl: 

MOV 

MOV 

B, #KBDTL ; 

dptr, #kbdt ; 

(B) = table lensth 

(DPTR) = keyboard data table . 

30 

31 

0309 

030B 

31 

40 

3A 

02 



ACALL 

JC 

STAB ; 

KP2 ; 

Search the table 

IF found THEN 

32 

33 . 

34 





. 

Command from keyboard 


36 

37 

030D 

030E 

E4 

73 




CLR 

JMP 

A 

eA+DPTR ? 

Jump to routine _ 

38 

40 

41 






Cursor 

keys 


42 

43 

030F 

0310 

FD 

E5 

OF 


KP2: 

MOV 

MOV 

TEMP, A 

A, OSTORE ; 

IF output FIFO not empty THEN . 

44 

45 

0312 

0315 

B5 

ED 

10 

DE 


CJNE 

MOV 

A, OFETCH, KPR ? 

A, TEMP 

loose character and return 

46 

47 

0316 

75 

FO 

07 


MOV 

B, #KBCRTL ....;. 

<B) = table lensth . 

48 

49 

0319 

03 1 r: 

90 

31 

0466 

3A 



MOV 

ACALL 

DPTR, #kbcrt ; 

STAB ...;. 

(DPTR) = kb cursor table 

Search the table . 

50 

51 

03 IE 
0320 

40 

20 

2F 

42 

DO 


JC 

JB 

KP6 ? 

ADM3, KPR . 

IF found THEN 

IF .ADM 3 mode THEN exit . 

52 

0323 

20 

CO 

43 

82 

CD 


JB 

PUSH 

HAZ, KPR ; 

DPL ..?. 

IF Haz mode THEN exit 

54 

0328 

032A 

CO 

74 

83 

IB 



PUSH 
MOV .... 

DPH 

..A?... 


56 

.5.7 

032C 
.Q?5ie... 

91 

_ 30. 

14 

40 , 

04 .... 


ACALL 

.JNB. 

KPCOF ? 

ANSI, KP.3..;. 

output escape 

.... JF. .in.. AJMS.l. .T.HfN. 
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1 0331 

74 

5B 



. MOV 






2 0333 

.3 .035!.S. . 

4 0337 

5 0339 

91 
....P.Q. 
60 
... .3.Q 

14 

.EP. 

12 

. J.Q. 

OF 

. KP3: 

ACALL 

. POP 

JZ 
. INB 

KPCOF 

...ePQ . 

KP4 

c;HTFTF, kP4 

; output 

; IF erase kev AND 




6 033C 

. 7. 033E.. 

30 
... .7.4. 

40 

. S? . 

06 


JNB 

. MP.V . 

ANSI, KP5 

...A?..#.:2.-: . 

7 .. i-r. . .^fi.it.t . . .down. .TnLN . 

; IF in ANSI mode THEN 




8 0341 
. 9 034:3 

91 

....SP.. 

14 

. 06 



ACALL 

SJMP 

KPCOF 

KP4 

; output •■■2' 




lU 0 -!45 
. 11 0347 

F5 
... .PP 

82 

EO 


KP5: 

MOV 

. POP 

liiPL, A 

ACC 

; ELSE in ZDS mode 
?.r.ep 1 ac^ .ch^r on stack 




13 034B 

LO 

DO 

82 

EO 


KP4: 

PUSH 

POP 

DPL 

ACC 

? to be used below 




14 034D 

15 

81 

14 



aJmp 

KPCOF 

; Output ne::<t char and return 




16 

17 




. 

Numeric ke y pad kev 





18 

19 034F 

A2 

1C 


KP6: 

MOV 

C, SHIFTF 





20 6:351 

21 0354 

30 

B3 

30 

01 


JNB 

CPL 

KPADSHTF, KP7 i 

C ! 

; IF keypad is shifted THEN 




22 0355 

23 0357 

24 0359 

25 035C: 

26 035F 

27 0361 

28 0:363 

29 

92 

92 

75 ■ 

90 

31 

50 

80 

1C 

E6 

FO 

047B 
3A 

02 

8E 

1C 

KP7: 

MOV 

MOV 

MOV 

MOV 

ACALL 

JNC 

SJMP 

SHIFTF, C i 

...ACC.. 6, C 1 

B, #KBPDTL ! 

DPTR, #KBPDT ! 

STAB 1 

KPl 6 ; 

KPR ? 

» save final result 

'..p. 1 . In .t.o. .da.t . wo C’.d. ^ 1 0 

; (B) = table lensth 

’..(.DPTR.). = keypad table 

1 search the table 

!.... IF not found THEN 
’ exit out 




30 0365 

31 

20 

1C 

22 

KP16: 

JB 

SHIFTF, KPS ; 

: IF keypad unshifted THEN 




32 0368 

33 036B 

20 

31 

.... 83 

06 

KP16A: 

JB 

. MOV 

KPADALTF, KP9 ; 

...At..pf:m... 

IF keypad is ordinary THEN 




34 036D 
.35 036F 

81 

80 

14 

82 



AJMP 

. SJMP ... 

KPCOF 

...KPR. 

output ordinary character 




36 

37 0371 

38 0374 

39 0377 

40 0379 

41 037B 

42 037D 

43 037F 

44 0382 

45 0384 

20 

20 

CO 

74 

91 

74 

20 

74 

91 

42 

43 

82 

IB 

14 

4F 

40 

:3F 

14 

F7 
>’4 ■■ 

02 

KP9: 

KPl 1: 

JB 

JB 

PUSH 

MOV 

ACALL 

MOV 

JB 

MOV 

ACALL 

...APM3, KP16A ; 

HAZ, kpi6A 

DPL 

A, #ESC 

KPCOF 

A, #'0- 
ANSI, KPll 

A, #•••?•' 

KPCOF 

. .I.F AEiM 3 mode THEN ordinary 

IF Has mode THEN ordinary 

.. I.P . .K^.YPS^d. .^.l.tj&.r p.^.t.^. .THEN . 

save character- 
output ESC 

IF in ANSI mode THEN" 
output 'O' 

ELSE IF in ZEtS mode THEN 
output ‘' 7 ' 




46 0:386 

47 0388 

48 

49 

DO 

81 

EO 

14 



POP 

AJMP 

ACC 

KPCOF ; 

putput final char and return 




50 

51 





Insert 

mode kev 





52 038A 

53 0380 

20 

20 

42 

43 

DE 

DB 

KP8: 

JB 

JB 

ADM3, kP16A ; 

HAZ, KP16A ; 

IF AEiM 3 mode THEN ordinary 

IF Has mode THEN ordinary 




54 0:390 

55 0393 

B4 

74 

D7 

IB 

21 


CJNE 

MOV 

A, #KB.-.7 + KB.SHFT, KPl2 
A, #ESC 





56 0395 

57 

9i 

14 



ACALL 

KPCOF ; 

Output ESC 














c 

€ 


C 


c 

c 

c c 

c c 

c 

€ 
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1 0397 

20 

40 

09 


JB 

ANSI, KP13 

; IF in ZDS mode THEN 


2 639A 

3 039C 

74 

30 

40 

21 

02 


MOV 

JNB 

A, 

ICMODEF, KP14 

5 check if in IC mode 


.4 ■ b39F' 

5 03A1 

74 

81 

4F 

14 


KP14: 

MOV 

AJMP 

A, #'b' 

KPCOF 

; output char and return 


6 

7 03A3 

74 

5B 


KP13: 

MOV 

A, 

; IF in ANSI mode THEN 


.8 OSAS 

9 03A7 

91 

74 

14 

34 



.ACALL 

MOV 

■fcPCdE. 

A, #"4' 

5 oufput • C• 


10 03A9 

91 

74 

"Sb . 

74 

14 

68 

21 

6C 



ACALL 

MOV 

kFcof 

A, 

; output •4- 


1 1 

.i2 03AD 

13 03B0 

02 


JNB 

MOV 

iCMODEF^, KF^i5 

A, #'l- 

.'!.rE 'ih rC'mode THEN. 


i4 0382 

81 

14 


KP15! 

.AJMP 

KPCbF^ 

• output char and ret urn 


15 

16 

17 




, 

Numeric 

keypad shifted 



18 

19 03B4 

FD 



KP12: 

MOV 

TEMP, A 



20 03B5 

21 03B7 

AC 

E5 

82 

83 



MOV 

MOV 

■ WORK, DPL 

A, DPH 

? Save second char 


22 b3B9 

23 03BB 

91 

EC 




acaLl 

MOV 

A. WORK 

; Uutput first kev 


24 03BC 

25 03BE 

60 

30 

55 

40 

OA 


JZ 

JNB 

KPR2 

ANSI, KPIO 

? IF second char not nu11 THEN 


26 03C:l 

27 03C3 

74 

91 

5B 

14 



MOV 

ACALL 

A, #-t' 

KPCOF 

; IF ANSI THEN output •-C •- 


28 0305 
•"■9 03C6 

EC 

B4 

4E 

02 


MOV 

CJNE 

A, WORK 

A, #'N', KPIO 

? IF delete THEN 


30 03C:9 
■p. 1 r)3r:B 

74 

81 

50 

14 


KPIO: 

MOV 

AJMP 

A, #-P' 

KPCOF 

; change it for ANSI mode 

; output second char Z< return 


32 

34 




; 

Access 

code in prosress 



35 

36 03Cb 

37 03CF 

C2 

FD 

IE 


KPA: 

CLR 

MOV 

ACCESS!^ 

TEMP, A 

; take out of access mode 
• Save for a while 


38 03D6 

39 03D2 

54 

B4 

F8 

98 

06 


ANL 

CJNE 

A, #ililibOOB 

A, #KB_ID, KPB 

; Mask’ for keyboard ID number 
? IF ID number THEN 


40 03D5 

41 03D6 

ED 

54 

07 



MOV 

ANL 

A, TEMP 

A, #000001118 

; get original data 

; mask for ID number 


42 03DS 
4:^ 0:":nA 

F5 

22 

ID 



MOV 

RET 

KBIDNUM, A 

5 save ID number 


4'4 

46 

47 





Function kev 



48 OSDB 

49 03DE 

20 

20 

42 

43 

35 

32 

KPB: 

JB 

JB 

ADM3, KPR2 

HAZ, KPR2 

; IF ADM 3 mode OF^’ 

; IF Haz mode THEN exit 


50 

51 03F1 

ED 




MOV 

A, TEMP 

; Get original character back 


52 

53 03E2 

75 

FO 

09 


MOV 

B, #KBFNTL 

; (B) = table length 


54 03E5 

55 03E8 

90 

31 

04CF 

3A 



MOV 

ACALL 

DPTR, #KBFNT 

STAB 

? (DPtR) == function key table 
; Search the table 


56 03EA 

57 03EC 

40 

CO 

27 

82 



JC 

PUSH 

KPR2 

DPL 

? IF found THEN 
' save values returned 
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1 

03EE 

CO 

S3 


PUSH 

DPH 


3 

03FO 

03F2 

74 

91 

IB 

14 


MOV 

ACALL 

A, #ESC 

KF’COF 

" output an ESC 

4 

CJ 

03F4 

03F7 

30 

74 

40 

4F 

OB 

JNB 

MOV 

ANSI, KPC 

A, #-0- 

; IF in ANSI mode THEN . 

6 

7 

03F9 

03FB 

91 

DO 

14 

EO 


ACALL 

POP 

KPCOF 

ACC 

" output •IJ" 

y 

9 

03FD 

03FF 

91 

DO 

14 

EO 


ACALL 

POP 

KPCOF 

ACC 

; output ne::::t character 

10 
1 1 

0401 

jLjL 



RET 



ik‘ 

13 

0402 

0404 

DO 

DO 

EO 

EO 

KPC: 

POP 

POP 

ACC 

ACC 

IF in ZDS mode THEN . 

; get proper char 

14 

15 

0406 

0409 

30 

C2 

E7 

E7 

OB . 

JNB 

CLR 

ACC.7, KPCOF 

ACC. 7 

? IF high bit set THEN 

■ clear high bit 

16 

17 

04 OB 
04011: 

FEi 

74 

30 


MOV 

MOV 

TEMP, A . 

A , # ••■ 0 


18 

19 

20 
21 

040E 

0410 

0411 

0413 

91 

ED 

81 

22 

14 

14 

KPR2: 

ACALL 

MOV 

AJMP 

RET 

kPCOF . 

A, TEMP 

KPCOF 

? output ’U' 

; output next character 

23 

24 

25 




.;. 

Check 

if local function and 

e.Xecute pr-oper- routine 

26 

27 

0414 
0417 

20 

41 

ID 

2A 

02 KPCOF: 

JB 

AJMP 

CONTLF, kPCl 

PCOF 

; IF control not pressed THEN 
' output char and return 

28 

29 

0419 

21 

CA 

KPCl: 

AJMP 

PC IF 

“ ELSE do 1ocal and return 


C C C C C € 


C € C C 


C 





































3 3 3 3 3 


3 3 3 3 


3 
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1 




. . 


2 




II 

7 


4 

KT 




m 

7 

m 

7 

.down then it checks for ZDS or ANSI mode. If it is in one 

of tho‘=ie modes then the 5e<=iuence to for backtab is sent. . 

'6 5 

8 

9 




[ 

ENTRY none 

10 

11 





EXIT hone 

12 

i:-: 





USES a 11 

14 

15 04IB 

30 

IC 

OF 

KBTAB: 

■ INB SHIFTF, KTl ! IF not SHIFT THEN Just TAB . 

16 041E 

17 0421 

90 

20 

0431 

40 

06 


.MOV DPTR, #ktMi ? set ANSI sequence 

.ip ANSI, KTO • IF ANSI mode THEN do it 

18 0424 

19 0427 

20 042A 

91 

30 

90 

02 

41 

0434 

0E6D 

06 

KTO: 

JnB ZDS 7 KTl ‘ IF not ZDS THEN -Just TAB 

MOV DPTR, #KTM2 ? ELSE s-iet^ZDS sequence. 

LUMP PSOF ' output back tab se«»uence 

22 042i:i 

23 042F... 

24 

25 0431 

26 0434 

0"7 

74 

41 

IB 

IB 

09 

2A 

5B 

AD 

DA 

KTl: 

KTMl: 

KTM2S 

MOV At #HT 

A. IMP prOF ■ ELSE output horizontal^ tab. 

DB ESC 7 7 ( -Z-'+SOH) ; ESC L Z. 

DB ESC 7 (~ +SOH) ? ESC “ 

28 

30 

.3A . 

32 

.33. 

34 

35 

36 





KBSPf\CE . ” . keyboard . space . routine . 

in which case it outputs a null character. 

38 

OC/ 




; 


40 




; 


..4 f. 

42 

.43 . 

44 0436 

.45..0438... 

46 043B 

47 0430 . 

74 

...3Q . 

E4 

...43. . 

20 

..l.D,... 

2A 

01 

KBSPACE: 

KBS IS 

MOV At #•■■ ■' ’ Default to space 

CLR A 5 output a nul 1 

0 IMP prop “ Output character and return . 
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......KBENT ” .H'f.X^Tl'TT;.?P.tT'-.L. i 

.2.•'.■^KB.ENT* o ut pu ts. a. . .car r.i.a.sc-. .re t.urn . u n .l.e ss. .t he ..shift ke v i s 

I ':■ n in uj h i c h c a s e it d o e s t h e p r i n t pas e f u iV-z t i on. . 

.I... ENTRY none 


10 

11 


12 

13 

14 '(MSE ■ 

15 0441 

16 0443■ 

17 0445 

IS. 

19 

20 . 

21 


EXIT- 

USES 


no n e 
al 1 


20 
74 
‘61 ■ 


ID 

9B 

OF. 

103C 


04 


KBENT: 


KBEl: 


JB 

MOV 

aJmp' 

JMP 


CONTLFO KBEl 
A. #KB„ENT 

■|<P2. 

R2„PRNT 


IF no contro'l THEN. 

set ke pad e n t e r k e y 

e n t e r b a c: f; i n t o c o d e. 

E L S E d o print pas e f u n c tio n 


KBACC 


k e Y b o a r - d access r- o u tine 


24 

’ 26 ‘ 
27 

29 
’ 36’ ■ 
31 


*KBACCis run whenever- -the access character- is r-eceive«ij 
f r- o m t h e k e y b o a r d. 


ENTRY none 
EXIT none 
USES none 


■34 . 

35 044S 

■ 3‘6 ■ ■04’4 A ■ 


IE 


KBACC 


SETB ACCESSF 
REt. 


7 F" 1 as access rece i ved 


€ € € e C C € C C € C 





















1 


3 3 3 13 


3 3 3 3 3 
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*** wynrwi 



KBDT - 

keyboard data table 


2 


; 

*KBDT* 

contains the commands 


4 

6 

7 


; 

Table entries ar.e s... vb.o.ard. 

address of the routine which 

performs the re=iuested function. 

8 

9 

044B 

KBDT 

EQU 

$ 


10 

11 044B 

12 04411; 

1 "; 

8 B 

04 IB 


DB 

DW 

KB_TAB 

KBTAB 

? Tab hiev . 

14 044E 

1 •=: CiAAF 

8 C 

04 


DB 

DW 

KB-SPACE 

KBSPACE 

; 8 pace bar 

16 

1 T rj/is 1 

C/p 


DB 

KB_ACC: 

; Access code . 

18 0452 

0448 


DW 

KBACC 


1 . 

20 0454 

21 0455... 

8 F 

...lOAE. 


DB 

DW 

KB-POWER 

R2_-IKB . 

7 Keyboard Just powered up 

•">2 

OQ 


DB 

KB_BREAK . 


.23.. P45.7... 

24 0458 

OFCC 


DW 

KBBREAK 


26 045A 

.27.. 0.458... 

8 A 

...0.FBE. 


DB 

DW 

KEf.-.CAPS 

KBCPLK.. 

7 Caps locked mode 

28 

.29.. 0.45.8 

.30 045E 

.. .8.7. 

0FE3 


. m . 

DW 

KB..-SC:R0LL . 

KBSCROLL 

.'. . 

.;3l.. 

32 0460 

88 


DB 

DW 

KB_SETUP 

R2_SETIJP 

7 Setup key pressed 

.;?.3.0461... 

34 

:35 046:3 
36 0464 

. . . AMArX . 

...9B. 

043E 


. m . 

DW 

KB-.ENT . 

KBENT 


. :3.7. 

38 

0009 

kb’dt'l 

EQU 

($-KBDT)/3 

; Table length 
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^ ? “ KBCRT - keyboard c u r- s o r table 

. 3 - 

2 ’ #KBC:RT# contains the ASCII val ues to be transmitted * bv . 

..?.terminal, .w.he.n . .re.ce.iyed. .frcim .t.he .k.eyboard. 

...Ja.bl .e . ent.r.ies .are: .. .K.ey.boar.d . .da.t.a. .w.o.rd f oi l owed .by. .t.he 

] ASCII character to be transmitted if in* shift mode fo . 

.... ASCI I character to be transmi tted al ways. The special .case 

" here is the erase and shift erase furnition ke^ . 

... 


.. 

0466 


KBCRT 

EQU 

$ 


14 







15 0466 

80 



DB 

KB_UP 

; Up arrow kev 

16 0467 

00 

41 


DB 

0, -A- 


17 






13 o46y 
. 19 046A 

81 



DB 

KB-.DCIWN 

; Down arrow hiev 

..00. 

42 


DB 

O7 -B' 

20 

. 21 g46C 




DB 

KB_LEFT 

; Left arrow kev . 

22 046D 

00 

44 


DB 

0, -D' 

24 046F 

83 



DB 

KB_RIGHT 

; Right arrow l-'ev 

25 0470 

00 

43 


DB 

0, •-c- 

26 







27 0472 

28 0473 

29 

84 

00 

48 


DB 

DB 

KB_HOME 

0, -H' 

" Home key 

30 0475 

31 0476 

86 



DB 

KB.HELP 

; Help key 

00 

7E 


DB 

0, 

33 0478 

85 



DB 

KB„ERASE 

; Erase key 

34 0479 

35 

45 

4A 


DB 

-E', -J- 

36 

0007 


KBCRTL 

EQU 

($~KBCRT)/3 

; Table length 


C € 


€ C C € 


C C C C € 
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1 



; ; 

KBPDT 

-- keyboard key 

pad table 


4 

5 



? 

» 

7 

•frKBPDT* contains the A: 
terminal when received 

sen values to be transmitted by the. 

from the keyboar«i. 

6 

7 . 

8 



? 

table entries are! Ke' 
ASCII character to be 
bv the ASCII character 
The shifted key format 

yboard data word followed by the 

to be transmitted if in any mode. 

uses keyboard data + shift function. 

10 



• 

7 

followed by teh esca 
transmitted. The ex 

pe sequence 
ception to 

or ASCII character to be 

this is the insert character . 

. 1.1 . 

12 



7 

m 

key. 
enteri 

In this case the first character is the character for 

14 









16 

1 7 

047B 


KBPDT 

EQU 





18 047B 

J.9 047C... 

90 

30 

70. 


DB 

DB 

KB-O 

0 •' 7 • p • 



; Keypad 0 key 

20 




DB 

KDml. 




22 047F 

.. .rA. 

31 

71 


DB 

1 7 •" 




24 0481 

92 



DB 

DB 

KB_2 

2 ■■■ 7 r •' ... 



- Keypad 2 key 

.2.5. .04,82.... 

26 


.... < f-.. 


DB 

KB_3 




.2/ . 0.4‘P.4..., 

28 0485 

33 

73 


DB 

•••3'7 -'s ' 




30 0487 

.3.1.0488.... 

94 

.. 34.. 

74. 


DB 

DB 

KB_4 

•••4-7 •t'.. 



7 Keypad 4 key 

32 




DB 

KB_5 . 




34 048B 

35 

75 


DB 

••■S '7 - u - 




.3.5. 

36 048D 

96 

O /m. 

76 


DB 

DB 

KB _6 

••'6-7 -v- 



• Keypad 6 key 

.37. .04.8E ... 

38 

.3.9. .0490... 

40 0491 

.. .36. 

... 97.. 

37 

77 


.P.D. 

DB 

KB_7 . 

•'7'7 'w' 




..41. 

42 0493 
....4.3..04.94... 

98 

... .33. 

73.. 


DB 

.P.B. 

KB _8 

•- 8 •' 7 X •' 



7 Keypad 8 key 

44 

.4.5..04.96... 

46 0497 

...99. 

39 

79 


DB 

DB 

KB_9 . 

.•• 9.-7 .-y-' 




47 . 

48 0499 

yi .f"\ yi I'-i /K 

9A 

Atr 


DB 

.DB .... 

KB_DEC 

.n ■'. 



7 Keypad decimal point key 

..49. .0.49A .. 

50 

.51.0498... 

52 049D 

_28. 

....98.. 

OD 

4D 


DB 

DB 

KB_ENT 

CR 7 ■M' 



7 Keypad enter key . 

..53. 

54 049F 

.55.. 0.4AO... 

9C: 

...2D. 

.... 6 D. 


DB 

.DP..... 

KB_DASH 

. . 



7 Keypad dash (minus) key 


56 

5.7. .Q4A2. .. 


P.B 


KB-COMMA. 


Keypad. 


c.qmrria. 


kev 
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1 04A3 

2C 

6C 


DB 

I 



... 3 04A5 

4 04A6 

DO 

30 

00 


DB 

DB 

..KB_0 + KB__SHFT 
-O-, NULL 

; Keypad 0 kev 

• shifted 

6 04A8 

7 04A9 

D1 

...IB . 

.... 4C . 


DB 

DB 

KB_1 + KB_SHFT 

ESC, -L- 

; Keypad 1 key 

■ shifted 

....P.4AJE^... 

10 04AC 

11 

...BZ... 

IB 

42 


DB 

DB 

KB_.2 + KB.>.SHFT 

ESC, •B-- 

" Keypad 2 key 

shift e d 

12 04AE 

13 04AF 

D3 

IB 

4D 


DB 

DB 

KB„3 + KB_SHFT 

ESC, ••M' 

; Keypad 3 key 

shifted 

14 

15 04B1 

16 04B2 

17 

D4 

IB 

44 


DB 

DB 

KB-4 + KB_.SHFT 

ESC, 'D-- 

’ Keypad 4 key 

shifted 

18 04B4 

19 04B5 

D5 

IB 

48 


DB 

DB 

KB_5 •+• KB_SHFT 

ESC, -H' 

; Keypad 5 key 

shifted 

20 

21 04B7 

22 04B8 

.. 06. 

IB 

43 


DB 

DB 

..KB.^6 + KB_SHFT 

ESC, •C' 

..." Keypad 6 key 

shifted 

24 04BA 

25 04BB 

D7 

IB 

40 


DB 

DB 

KB„.7 + KB_SHFT 

ESC, -e- 

" Keypad 7 key 

shifted 

26 

27 04BD 

28 04BE 

29 

D8 

IB 

'41 


DB 

DB 

KB-.8 + KB-SHFT 

ESC, 'A- 

“ Keypad 8 key 

shifted 

30 04CO 

31 04C1 

D9 

IB 

4E 


DB 

DB 

KB_9 + KB_SHFt 

ESC, -N- 

" Keypad 9 l-^ey 

shifted 

33 04C3 

34 04C:4 

35 

DA 

2E 

00 


DB 

DB 

KB_DEC + KB_SHFT 
- •••, NULL 

Keypad decimal key shifted 

36 04C6 

37 04C7 

DB 

OD 

00 


DB 

DB 

KB_ENT + KB.SHFT 

CR, NULL 

" Keypad enter 

key shifted 

39 04i::9 

40 04CA 

41 

DC 

2D 

00 


DB 

DB 

KB-.DASH + KB_SHFT 

NULL 

; Keypad dash 1 

•'ey shifted 

42 04CC; 

43 04CD 

A A 

DD 

2C 

00 


DB 

DB 

KB-.COMMA + KB_SHFT 
, NULL 

7 Keypad comma 

key shifted 

45 

001C 


KBPDTL 

EQU 

($--KBPDT)/3 

" Table lensth 



€ C € C C C C C C C C 
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***.P.QHPM.TPR..terminal .firmware. version .. 1.03... 

J • ; •^'R.FN.T .K®Vb oa r d f u n c t i o n tab 1 e.... 

i ; *KBFNT» contains the :ASC:I I. val ues to be transmi tted, .bv . .the. 

.. .•. terminal when received from the keyboard. 

...■;.. ‘table 'e’rltri'es' 'are':' ’' 'keyboard data' 'wo'rd^ 'f ol 1 owed' bv the 

” ; ASCII character to be transmi tted i.f . .19. .f I'T. . 

.x.;.by t'he''ASC'l'i''c'h'a'r'acter''to'be''trans'mi't't'ed in any other mode. 


9 


10 

11 

04CF 


KBFNT 

EQU 

$ 





. 12 

13 04r:F 

80 



DB 

KB_F1 

; 

Function 

key #1 


. 'i4 64b6 

15 

53 

53 


DB 

•'S-, 'S' 


ESC b b» 

ESC y 


.i‘6' '64t\!z 

17 04D3 

'm . 

54 

54 


DB 

DB 

KB'-F:^ 

•'T'., 'T' 

’ 

F u n c t i o n 
ESC 0 T, 

key #2 
ESC T 


. 18 

19 04D5 

82 



DB 

KB-.F3 

? 

Function 

key #3 


20 64D6 

21 

55 

55 


DB 

•'U', 'U' 


ESC 0 \J. 

Esc U 


. 22 0408 

23 04D9 

83 

56 

56 


DB 

DB 

KB_F4 
•'V', 'V' 

5 

F u n c t i 0 n 
ESC 0 V, 

key #4 
ESC V 


24 

25 04DB 

26 04bC 

27 

84 

57 

57 


DB 

DB 

KB_F5 
•'W', 'W' 

. }. 

Function 
ESC 0 Wt 

key #5 
ESC W 


28 04DE 

29 04DF 

85 

50 

50 


DB 

DB 

KB_F6 

■' P ■' 7 ■' P *' 


Function 
ESC 0 P7 

key #6 
ESC P 

( b1ue) 

30 

31 04E1 

86 



DB 

KB^F7 

- 

Function 

key #7 

(red) 

32 04E2 

33 

51 

51 


DB 

•'Q', -Q' 

' 

ESC 0 Q, 

ESC Q 


34 04E4 

35 04E5 

87 

52 

52 


DB 

DB 

KB-.F8 
•'R', 'R' 

m 

F u n c t i 0 n 
ESC 0 R, 

key #8 
ESC R 

(gray) 

36 

37 04E7 

88 



DB 

KB_F9 


F u n c t i 0 n 

key #9 


38 04E8 

39 

58 

C9 


DB 

•' X , ( •' I +80H ) 


ESC 0 X7 

ESC 0 

i 

40 

0009 


KBFNTL 

EQU 

($~KBFNT)/3 


Table lei 

nsth 
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1 


... 3 - 

4 .5. 

5 ! 

”'6.5. 

7 \ 
. » 

8 . 

9 ] 

*10 .;. 

11 ! 

'12... 

13 

'i4 ■04EA.CO.FCi. ‘bLiNAD 

15 04EC 74 47 

16 'o4eE .25.i2. 

17 04F0 F3 

18 04^.E6. 

. 19 04F2 75 FO .50 

20 6’4F5 A4 .. 

..21 .0.4F6 25 11 

22 04F8.F5.14. 

.33.04FA E5 FO 

24 0‘4FC 34.50. 

-25,04FE... F5 13 

26 0500 bo.FO. 

27 0502 22 


.BL.I.NA.P. .7 .bui l.d. .1. i.ne. .a.dd.re.ss 

I NAD*. .ca. 1 c.«j .1 at.es.. c.ha.ra.c t.er .rri.erriory add.res s&s us i ns — XPOS— 
and -YPOS- and places the result into -LilMAbH/L--.. 


..entry.... no .n.e. 

. exit .P.QP.^ 

.USE-S.A, . .PTRl 


PUSH.B. 

.MOV.A, . .#LORDER 

ADD A, #*0S 

.(IQV.... PTRl, A 

MOV A, ePTRl. 

. MOV.B.,.. .#NUMCHARS 

MUL AB 

.A.DD.A.,.. .X.PpS. 

MOV LINADL, A. 

MQV.A.^.E. 

ADDC A, #HIGH (CHARMEmV 

MQV..... LINADH, A 

POP B 

RET 


Save register 

t . .base . P. f. .tab 1 e. 

Add in offset 

.P .1 .a c.e . .i n t o , f o i .ri t e r 

Fetch pointer 

Se.t. .u p.. f . 0 . r. .rri.u 1 .t. i p. ] y 

Doit . 

.Ad.d . .i.ri. .XPQg . of f.<?^.t. 

Save low order bvte 

.Qe.t..h j.^b. .b.Ytj^. 

Add carry and offset 

.Save .hig.h . .or.de.r . .b.v.tf. 

Restore 


c c c c c c 


c c 


c c c 
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2 

3 

4 




5 

address of that coordinate to character memorY. 

6 

7 




f 

7 

ENTRY 

(A) = X-Position 


8 




? 


(B> = Y-Position 


9 

10 




7 

7 

EXIT 

(tiPTR) = current address 


12 

1 





USES 

A, B, DPTR, TEMP, PTR’i 


14 

15 0503 

FD 



CL a: 

MOO 

TEMP, A . .;. 


16 0504 

17 0506 

18 0508 

19 0509 

20 050A 
o 1 riRnn 

74 

25 

F8 

E6 

75 

47 

FO 

FO 

50 


MOV 
ADD 
MOV 
MOV 
MOV 
MUL ... 

A, ttLORDER ; 

A, B 5. 

p 't ri, a ; 

A, ©PTRi . 

B , #NUMCHARS ? 

Am.? 

Get base of table 

Add in -YPOS- offset . 

Move into pointer 

Set UP for mu 11ip1 y 

Z 1 U-w.'ULi. .. 

22 050E 

23 050F 

24 0511 

oes; -I O 

... n^.- 

2D 

F5 

E5 

34 

82 

FO 

50 



ADD 

MOV 

MOV 

ADDC 

A, TEMP ? 

dp.Lt..a. 

A, B ? 

A, #HIGH (CH.ARMEM?. 

Add in -XPOS- offset 

Get high bYte 

Add m-triQr.Y. f.^set. .and. .c.ar.ry. 

26 0515 

.;?7. 0517... 

F5 

83 



MOV 

RET 

DF=‘H, A ' 

Save high bvte 
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6 

7 

• • Q- 

9 

id’ 
11 
“12 ' 
13 
'14 ' 
15 


.PRLF.-.perform 

. . r.^ y ® r.^ ] X ^ ^ ^ 

.fPRLP*. fnc'yes . the . curs or. u p . one . 1 i ne. i n. the video memo r v. 

If the cursor was already on the top 1 i ne' of ’th^* d i s*p 1 av^ 

.the. disp.l.av . is. .s.cr.ql .l.ed .down. .an.d. .th.e .ne.w. l.ine is filled 

with spaces, . 


..ENTRY no.ne 
EXIT none 


USES 


al 1 


16 

0518 

E5 

12 

17 

051A 

B5 

17 

18 

05 ID 

f!5 

18 

19 

0520 

15 

FO 

20 

0522 

12 

0B96 

21 

0525 

74 

47 


0527 

25 

18 

23 

0529 

14 


24 

d52A 

F8 


25 

052B 

F9 


'26 

052C 

19 


27 

052D 

86 

05 

28' 

052F 

E5 

18 

29 

0531 

95 

17 

’30 

0533 “ 

14 


31 

0534 

FC 


32 

0535 ■■■ 

C 2 

AF 

33 

0537 

E7 



PRLF: 


2B 

Fd’ 


MOV A, YPOS 

CJNE A, TSCROLL. RLl 

MOV.B, 'BFiX. 

. DEC B 

LCALL.CLRLiNE. 

MOV A, #LORDER 


' Get Y-position . 

.!... X'?r..?.f. .^'rX:9.\}. r.®?i then 

; clear bottom line. 

.'..ef.. the scr o 1 1 i ng res i on 


ADD A, BFIX 

DEC A 


Ge t t OP o f table 
Add in offset 


MOV ptrIVa" 

MOV PTR27 A 


DEC PTR2 . 

. fly.y.. ' Save bottom to put on tnp 

MOV A, BFIX . 

SUBB A, TSCROLL 


7 Calc # times through loop 


■ 34 0538■ 
35 0539 


nr 

18 


RLL: 


■ 36 OSSA■ ■ 

“■■19 • 


37 053B 

DC 

FA 

38 



39 053D 

A6 

05 

40 053F 

D2 

AF 

41 0541 

E5 

12 

42 0543 

F5 

12 

43 0545 

91 

EA 

44 0547 ■ 

• 22- 

45 0548 

B4 

00 

46 d54B“ 

22 


47 054C 

■4.*: (md"’ 

14 

•••SC) •••• 

F4•• 


DEC A . 

MOVWORK, A 

CLR EA • Disable for flicker. 

. MOV A 7 ePTR2 ; REPEAT 

MOV ©PTRi, A ; exchange values. 

DEC PTRl 

DEC PTR2 ; bump'down. 

.P.’JW.Z.WORK, RLL ; UNTIL work = 0 


.MOy..®PTR?.’..JEf1PA. ? Put last value in 


01 


RLR: 

RLl: 

RLIA: 


SETB 

MOV 

• Hov • • • • 
ACALL 

• pg; j • • • • 

CJNE 

■ RET■ ■ ■ 
DEC 

■ SUMP' 


EA 
A, YPOS 

YPOSi’A. 

BLINAD 

A, #0, RLIA 


A 

RLR ■ 


Enable interrupts again 
Ke e p s a me p o s i t i o n 

Build line address 

Return. 

.IF.top cif screen THEN 

return. 

ELSE bump up 
and return 



€ € C C C € 


C C C C € 


















333 333 >3333 
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1 




? 7 

PCRLF ~ 



2 

3 




7 

M 

7 

*PCRLF* 



4 

5 




7 

7 

a line 

feed if the auto line feed function is selected. 


6 

7 




7 

7 

ENTRY 



8 

9 




7 

■ 

7 

EXIT 



10 

1 1 




■ 

7 

7 

USES 

A, B, DPTR, TEMP, PTRl . 

12 

13 .. 


14 

15 

054F 

0551 

B1 

20 

5C 

2D OD 

PCRLF: 

ACALL 

JB 

PCR ? Perform carriage return 

AUTOLF, PLF ? IF auto LF THEN do *PLF* . 


16 

1 7 

0554 

22 



RET 

; ELSE return 

is 

19 . 


20 

21 





.RLF.CR. r 

p^r.fC'.riTi.. . .f .^^.nd/.Qr.. .c.^r.ri^P.^. .r;€f.tu.r:ri .. 


22 

23 




7 

m 

^•PLFCR* 

perf CTTijS a . .(;^r.r-.i'4?.^. .r;^.tu.rn. .p.r i.Qr. .t.o.. P^r.f.o.r mi .4. 


24 

25 




H 

7 

line feed if the auto carriage return function is selected. 


26 

27 





ENTRY 



2S 

99 




7 

EXIT.... 



30 




7 

USES 

A, B,. DPTR^.TEMPr.ETRI . 

32 


34 

35 

0555 

30 

B1 

2C 09 

PLFCR: 

JNB 

.ACALL... 

AUTOCR, PLF ; IF no auto CR THEN do ^PLF* 

PQR .. LL.SE..d.o . .Q^r.r-. .r^f.t g.r o. 


36 

055A 

80 

05 


SJMP 

PLF ; line feed and return 
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1 


. . 


PCR - 

perform carriage 

return 


3 




■«-PC:R* 

move5 the cursor 

to the 

beginning of the current line. 

4 

5 


m 






6 

7 


. ? 


ENTRY 

none 



S 

9 




EXIT 

none 



10 

11 




USES 

A 



12 

13 

055C: 

75 11 00 PCR: 


MOV 

XPOS, #0 


; Return to beginning of line 

14 

055F 

81 EA 


AJMP 

BLINAD 


; Build line address and return 


C C C etc € C C € C 




























3 3 3 3 3 



3 3 3 3 3 
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1 





7 7 

PLF - 

perform line feed 



3 





7 

m 

7 

■H-PLF* 

moves the cursor 

down one line in the display memory. . . 

’4 

5 





7 

7 

Cursor never moves out 
is scrolled up one line 

of the top 
if cursor 

fixed region. The display 
is Just above the bottom 

6 

7 





7 

7 

fixed 

region. The cursor never moves into the 25th line. 

8 

9 





7 

7 

ENTRY 

none 



10 

11 





7 

EXIT 

none 



. 12‘ 

13 





7 

7 

USES 

al 1 



. 14-. 

15 . 

16 

17 

0561 

0563 

■'ES. 

B4 

12 

18 

01 

PLF: 

MOV 

CJNE 

A, YPOS ; 

A, #MAXLINE, PLFl ? 

Get Y-position 

IF on 25th line THEN 

18 

19 

0566 

0567 

04 



PLFl: 

RET 

INC 

A 


return 

ELSE bump value 

20 

21 

0568 

056B 

B5 

80 

18 

04 

02 


CJNE 

SJMP 

A, BFIX, PLF2 
PLF3 


IF bottom scroll region tHEN 
scroll as usual 

23 

656D 

0570 

B4 

22 

18 

24 

PLF2: 

CJNE 

RET 

■■■«;■'^MAXLINE. PLFRET ; 

IF not 24th line THEN bump 

ELSE return 

24 

25 

0571 

0574 

85 

12 

17 

0B96 

FO 

PLF3: 

MOV 

LCALL 

B, TSCROLL 
CLRLINE 

7 

7 

Set UP to clear 

Top line of scroll region 

26 

27 

0577 

0579 

74 

47 

17 



MOV 

ADD 

A, #LdRDER 

At TSCROLL 

• 

7 

7 

Calculate pointers needed 

For adjusting —LORDER— 

28 

29 

057B 

057C 

FS 

F9 




MOV 

MOV 

pTrIt a 

PTR27 A 



30 

31 

057D 

057E 

09 

86 

05 



INC 

MOV 

PTR2 

TEMPA, ©PTRl 

• 

Save top value for later 

33 

0580 

OFi32 

E5 

95 

IS 

17 



MOV 

SUBB 

At BFIX 

At TSCROLL 

7 

Calc number of times 

34 

35 

0584 

0585 

14 

FC 




DEC 

MOV 

A 

WORKt a 

’ 

To go through loop 

36 

37 

0586 

C2 

AF 



CLR 

EA 

" 

Stops any blinking 

38 

39 

0588 

0539 

E7 

F6 



PLFLP: 

MOV 

MOV 

At @PTR2 
@PTR1t a 

1 

REPEAT 

switch entries . 

40 

41 

05SA 

058B 

08 

09 




INC 

INC 

PTRl 

PTR2 

; 

bump pointers 

42 

43 

058C 

DC 

FA 



DJNZ 

WORKt PLFLP 

‘ 

LINT IL work = 0 

44 

45 

058E 

0590 

A6 

D2 

05 

AF 



MOV 

SETB 

©PTRIt TEMPA 

EA 


Place last value 

Enable interrupts . . 

46 

47 

0592 

0594 

E5 

F5 

12 

12 


PLFRET: 

MOV 

MOV 

At YPOS 

YPOSt a 

7 

Keep same position 

Ijpdata -YPOS- . 

48 

0596 

81 

EA 



AJMP 

BLINAD 

” 

Build line address and return 
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1 

.. 

.CtRTABS “ clear all 

tabs 


“ 

.^CLRTABS* clears all 

tab settings. 

4 - . . 

6 

7 

!=: ' ■ ■ ■ 


ENTRY none 



EXIT none 


; USES A, PTRl, INDXl 

11 

12 .. 


13 

14 

15 

16 
17 

0598 

059A 

059B 

059D 

78 

E4 

7A 

F6 

29 

OA 

CLRTABS: 

CLRTB: 

MOV 

CLR 

MOV 

MOV 

PTRl, 

A 

INDXl, 

©PTRl, 

#TABTAB 

. #10 

- A 

; Init pointer to tab table 
• Init value to place in table 
? Ten bvtes in the tab table 

? FlEPEAT zero bvte 

IS 

19 

059E 
059F 

08 

DA 

FC 


INC 

DJNZ 

PTRl 

INDXl, 

. CLRTB 

■ bump pointer 

; UNTIL index = 0 

20 

05A1 

22 



RET 





C C C C C C C C € c c 

































3 3 3 3 3 


3 3 3 3 
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1 

'2 


3 

■4‘ 


SETTAB - change tab setting . 

*SETTAB* sets or clears a tab position depending^ o. 

’ va 1 u e s pas s e d' t o' 1 1 


■ ■ 6. 

7 

'8. 

9 

ib. 

11 .... . 

12 ' 

13 .. 

■ i4' ■ 

15 05A2 F5 FO . 

ib b5A4.54 ’ F8 

17 05A6 FC 

ie b5A7. 03“’ 

19 05A8 03 . 

‘ 20 ' b5A9.03. 

21 05 A A .24.29.... 

’22 05AC * F8 

23 05AD..E6. 

24 bsAE 7A 08 

25 05B0..05. fO . 

’26 0562. BS ’ 0’4 04 

.?.7 . .05.B5.A.2.P.5.. 

28 0567 92 F7 

29 05.B?..C5.Fp. 

’36 65 BB 23 

.5U. 05BC.pc. 

32 05BD DA FI 

.33.P5BF...;..F^'. 

34 05C0 22 



SETTAB 


STBl: 


STB2 


ENTRY (A) = tab .P.os.i.tion f rom 0. . 79. 

.''’FO-' ^ val ue into tab position 

EXIT hone 

USES.a; ■ 'b;' 'PtRi; ■ 'WORk;' 'lNOXi. 


MOV B, A 

ANL.A,'■■#11 i l ibOOB 

MOV WORK, A 

RR.A. 

RR A 

RR.A. 

ADD ..A?..=».TA]BTAB. 

■mOV .■pTRiV A 

MOV A, ePTRl. 

'mov .i'NDXi, #8 

XCH A, B 

cijNE .A, WORKA, sfB2 

MOV C, FO 

’MOV.B.'7, C 

XCH A, B 

RL.A 

INC WORK 

■dJNZ .i'Nbxi’,’ STBl 

MOV ©PTR1,.. .A. 

■ret. 


Save position to set/clear 
Ma k e it a m uT ti p 1e o f 8 
Save as a start for counting 
Divide bv 8 


Add offset to tab tab 1 e.. 

in it pointer 

Get tab byte. 

Loop through al1 8 bits 

Get .count .and .save byte. 

if position if found 

Ge t va 1 ue des i red.. 

Place into tab bvte 

Change back. 

Rotate to next tab ■positioh 

Bump ccHjnt. 

U h tif a1f 8 bit s d o n e 

Replace the tab bvte. 
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TAB 


. h .o r i z o n .t a 1 t a b r o u t i n e 


.. t s c u.r; re n.t. .p os i t i o n. .a.nd t he ff doe s .a .se.ar.c h. f.or t he 

next tab stop. If none is found then the default is the last 
. .c o 1 urn n . p 0 s i t i o n. 


ENTRY 


none 


10 

11 

12 . 

13 

14 . 

15 05C1 
■i6 05C3’ 
17 05C4 

'is' 05C6’ 
19 05C7 
20'05CS' 
21 05C9 
'22'05CA' 
23 05CC 
'2'4'05CE" 
25 05CF 


EXIT 
■ USES' 


n o n e 

' Ar 'BV 'ptRiV 'wORk; 


TEMP, INDXl/2 


E5 

'FD' 

54 

'Fli' 

C)3 

03 

03 

'F'5' 

24 

'FS' 

74 


11 

F8 


FO 

29 


OA 


TAB: 


MOV 
' 'Md'V' 
ANL 
' 'MOV' 
RR 

' RR" ' 
RR 

' 'Md'V' 
ADD 
'Md'V' 
MOV 


A, XPOS 

'tempV'a. 

A, #11111000B 

' 'wd'Rk',' "a. 

A 

'A. 

A 

'b; "A. 

A, #TABTAB 

"PTRi V A. 

A, #10 


; Get c urrent position 

" Save p o s i't i o' n " t o'' t'a b'' f'r o m.. 

; Make a multiple of 8 

* Save 'as "a "s'ta'r t"f o'r' 'c 'o'u'n't. 

‘ Divide bv 8 


; Save t empo'r a r v ' b'v t'e' 'b f'f s'e't. 

? Add offset to tab tab1e 
7 initialize p«;« i h'ter. 


26 05D1 

27 05D3 

28 05D4 

29 

95 

FA 

C2 

FO 

D5 



.'du'BB' ■' 

MOV 

CLR 

'fCi, '6. 

INDXl, A 

FO . 

; Calc # times needed in ioop . 

; Place into index 
• Fo = h u n t i n 9 f 0 r c «j r r e h t p 0 B 

30 0506 

31 05D7 

E6 

30 

D5 

02 

tBL'l: 

MOV 

JNB 

A, ©P'tRJ . 

FO 7 TB6 

; REPEAT set tab bvte 
“ IF n 0 1 1 0 0 k ins f 0 r p 0 siti 0 n 

33 05DC 

60 

7B 

17 

08 


TB6S 

J2 

MOV 

t6l . 

INDX27 #8 

' look throush the 8 bits 

34 

35 05DE 

.-i/.' At't'i* • • 

20 

D5 

09 

TBL2: 

JB 

FO, TB3 

.;.PEPEAT.. 

? IF 1 0 0 k i n s f 0 r c u r r e n t 

37 05E2 

38 05E5'" 

39 05E7 
.40 O'^iF’^* 

LD 

B5 

•••^,2 •••• 
CD 

04 

.CiS ■ • • • 

02 


XCH 

CJNE 

"AVTEMP.. 

A, WORKA, TB4 

, set orisihal position 

; IF esual to orisinal 


TB4: 

SETB 

XCH 

Fd 

A, TEMP 

■ flas if . 

" set current position 

41 05EA 

20 

03 

E7 

OF 

TB3: 

SJMP 

JB 

TBi: . 

ACC.7, TBR 

’ ELSE look ins for tab 

; IF tab set THEN exit 

42 05ED 

43 05EE 

.A‘4 ' ■ ■ 

23 

OC 

"d6. 

* toVS. 

■ ■ ■ ■ tr’rt. 


tB'2: . 

K'l. 

INC 

■ ■ 

A'. 

WORK 

■ rotate to next 

? bump count 

45 

A’/.’ ■ * ' " 

ED 

• .•*.* rf • • • • • 




'tBt:2. 

; UNTIL bit c 0 u h f = 0 

47 05F3 

.At* * ‘ 

oU 

74 

• • . 

04 

08 


TBl: 

dJMP 

MOV 

' TBS. 

A, #8 

, if need to bump bv eisht 

49 05F6 
■■ SO IW7 

51 05F8 

2C 

FC 

"dd. 

DA 




'ADD 

MOV 

A, WORK . 

WORK, A 

; bump count bv e'ishf 

DC 


TB5: 

INC 

DJNZ 

PtRi . 

INDXl, TBLl 

; bu'iTi'p 'p'oin'te'r 'to next bvte 

; UNTIL table is done 

•_'2 

53 05FA 

7C 

4F 



MOV 

WORK, #MAXCHAR 

; Default value if not found 

d4 

55 05FC 

56 05FE 

57 0600 

8C 

91 

21 

11 

EA 

A9 


TBR: 

MOV 

ACALL 

JMP 

XPOS, WORK 

bl'inad 

SPF 

; Set next tab position 
; Build new address 
" Skip any protected fields 


€ 


€ 
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1 





7 7 

BTAB - 

horizontal back 

tab 


2 

3 






#BTAB* 


4 





■ 

previous tab stop. If 

none is 

found then the default is the 

5 





• 

first 

column position. 




' 6 ‘ 
7 





; 






s' 

Q 





; 

ENTRY 

none 




10 

11 





; 

EXIT 

none 




12' 
1 3 





5 

USES 

A, B, PTR1> WORK, 

TEMP, 

INDXl/2 

14 

15 

0602 


11 


BTAB: 

MOV 

A, XPOS 



? Position to compare with 

16' 

17 

0604 

0606 

60 

14 

19 



JZ 

DEC 

BTR 

A 



" IF first column THEN exit 
; Decrement for compare 

18 

19 

0607 

75 

11 

00 


MOV 

XPOS, #0 



; Start looking from first pos 

20' 

21 

060A 
060D 

85 

CO 

11 

EO 

FO 

BTL: 

MOV 

PUSH 

B, XPOS 

ACC 



; REPEAT save previous position 
" save compare value 

23 

060F 
0611 

CO 

B1 

FO 

Cl 



PUSH 

ACALL 

B 

TAB 



; save previous position 

; tab to next stop . 

*24 

25 

0613 

0615 

DO 

DO 

FO 

EO 



POP 

POP 

B 

ACC 



; restore previous position 

; restore compare value 

*26 

27 

0617 
061A 

B5 

50 

ii 

EE 

00 

BTLl! 

CJNE 

JNC 

A, XPOS, BTLl 
BTL 



5 UNTIL next >= current pos . 

*28 

29 

061C 

85 

FO 

11 


MOV 

XPOS, B 



• Get previous position . 

30 

06 IF 

81 

EA 


BTRs 

JMP 

bLinad 



? Calc new address and return 
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. 1 


;; 

HTS - 

horizontal tab ^et 

C* 



.:*HTS* 

sets tab at currerit po«;itiriri. 

.5. ; 

6 

. 7 


1 

ENTRY 

none 

8 

9 


. 

EXIT 

none 

10 

11 



USES 


12 

13 0621 

14 0623 
. 15 0625 

16 

17 

D2 

E5 

A1 

.D5 HTS: 

11 HTSl: 

A2 

SETB 

MOV 

AJMP 

. ? Set tab 

A7 XPiJo ; Get position 

... “ Execute and return 

19 

20 

21 


. 

HTC - 

Horizontal tab clear . 

22 


; 

*HTC* 

Clears tab at current position. 

24 

25 


? 

ENTRY 

none 

26 

27 


1 

EXIT 

none 

28 

29 

30 

31 


. 7 

USES 

al 1 

32 0627 

33 0629 

34 

35 

C:2 

80 

bS HTC: 

F8 

CLR 

SUMP 

; Clear tab 

. ? Execute and return 

37 

39 


1 ' 

ATBC - 

ANSI tabulation clear . 

40 

41 



•J^ATBC* 

performs the specified tab controls. . 

42 

43 


? 

ENTRY 

none 

44 

45 



EXIT 

none 

46 

47 

48 


7 

USES 

al 1 

49 

50 662B ■ 

. 51 062E 

52* 0630 

53 0633 

54 0635 

12 

60 

■B4‘ 

A1 

22 

0901 ATBC: 

F7 

03 02 

98 

AT2: 

LCALL 

JZ 

CJNE 

AJMP 

RET 

cNP ; Get parameter 

...HT’r*.. ? IF 0 THEN hor tab clear 

A, #3, AT2 ; ELSE IF 3 THEN .. 

. ? clear all tabs 

; ELSE return 


€ C C € C C 


C C C € € 

























3 3 3 3 3 


3 3 3 
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1 


HTAB - 

Hazel tine tab routine . 

2 

3 

; 

#HTAB* 

performs the Hazel tine tab function. . 

'4 

KTi 

7 



6 

7 

7 

ENTRY 

none 

8 

9 


EXif 

none 

10 

; 

USES 

ai 1 


11 


13 0636 

C2 

D5 


HTAB: 

CLR 

FO 


? 

Fiasi = FALSE 

14 0638 

E5 

11 



MOV 

A, XPOS 




15 063A 

•-icrj 

12 



ADD 

A, YPOS 



Check for home position 

16 

17 063C: 

70 

02 



JNZ 

HTO 


; 

IF home p 0 siti 0 n THEN 

18 063E 

19 

D2 

D5 



SETB 

FO 



flag = TRUE 

20 0640 

CO 

11 


HTO: 

PUSH 

XPOS 


* 

Save current position 

21 0642 

CO 

12 



PUSH 

YPOS 




22 0644 

■75 . 

3F 

80 


MOV 

PFIELD, 

#iooobo6oB 


Make normal protected 

23 0647 

31 

A9 



ACALL 

SPF 


* 

Skip over foreground 

24 0649 

E5 

11 



MOV 

A, XPOS 




25 064B 

25 

12 



ADD 

A, YPOS 



Check for home position 

26 

27 064D 

70 

03 



JNZ 

HTl 


• 

IF home position AND . 

28 064F 

30 

D5 

09 


JNB 

FO, HT2 


; 

IF that is old pos THEN 

29 0652 

75 

3F 

08 

HTl: 

MOV 

PFIELD, 

#00001000B 

7 


30 0655 

31 

A9 



ACALL 

SPF 



skip over background 

31 0657 

E5 

11 



MOV 

A, XPOS 




32 0659 

33 

25 

12 



ADD 

A, YPOS 



check for home position 

34 065B 

35 

75 

3F 

00 

HT2: 

MOV 

PFIELD, 

#0 

" 

clear protected fields 

36 065E 

60 

05 



JZ 

HT3 


7 

IF position not home tHEN 

37 0660 

DO 

EO 



POP 

ACC 


7 

remove 01 d po siti 0 n . 

38 0662 

DO 

EO 



POP 

ACC 


7 

and return 

39 0664 

22 




RET 





40 










41 0665 

DO 

12 


HT3: 

POP 

YPOS 


m 

7 


42 0667 

DO 

11 



POP 

XPOS 


7 

use previous position 

43 0669 

81 

EA 



AJMP 

BLINAD 



uPdate and return . 
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? 

..;.f.RINp*. r inss . the . bel l. on . the keYboar d,... If. .t.he. .in.F’M.t. .FI.Fp 

’ has a bell as the next character it is dropped. This is 

...th.at. .t.he. .termi n.a.l.. can kee.p. up .with multiple, .be.l. Is an«:J 

' communicate to the keyboard. 




9 




• 

ENTRY 

none 


lu 




? 




11 




? 

EXIT 

none 


Ik: 

13 




• 

7 

7 

USES 

none 


14 








15 








16 066B 

17 066D 

74 

51 

81 

6 D 


RING: 

MOV 

ACALL 

A, ‘#KBC_BELL 

PCKB 

■ Output command to ring bell 

IS 

19 066F 

20 0671 

21 0673 

22 0676 
,2.3..06.7p 

24 067A 

51 

40 

B4 

31 

80 

22 

IB 

07 

07 . 
F6 

F5 

04 

RGL: 

RGR: 

ACALL 

JC 

CJNE 

ACALL 

SUMP 

RET 

LCIF 

RGR 

. A, #BELL, RGR 

FCIF 

RGL 

."...REPEAT get nei^t input char 

? IF no character THEN exit 

.? IF character = bel1 THEN 

" fetch character and drop 

. “. . .UNT I.L. .c h.a r.. <> bell 


€ C € 


C C C 


C C C C 




























3 3 3 3 3 


3 3 3 3 
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1 




" ’ 

ESCCODE 


2 

3 





#ESCCODE# determines. ;which mode the terminal.. is. .in.. and.. 

4 

*=; 




7 

sets the 

dispatch address to the proper routine. 

6 

7 




; 

ENTRY 


8 

9 





EXIT 


10 

11 





USES 


12 

13 







14 

15 

067B 

12 

102D 

ESCCODE: 

LCALL 

R2_ESC ? Escape hook 

16 

17 

067E 

0681 

75 

75 

16 

15 

97 

06 

MOV 

MOV 

DSADRL, #LdW (ANSIESC) ? ANSI dispatch address 

18 

19 





IFC 


20 

21 





ERROR 

ENDC 

r'ZbSESC' IS NOT THE SAME AS -ANSIESC' 

22 

23 





IFC 

ERROR 

NE, H i GH ■( ANS1 ESC) -HIGH ( ADHsESC ) 

24 

25 





ENDC 

IFC 


26 

27 





ERROR 

ENDC 

;'HAZESC- IS NOt THE SAME AS -ANSIESC- 

28 

29 

06*84 

20 

40 

OF 

JB 


30 

31 

0687 

75 

16 

B8 

MOV 

DSADRL, #L:6 w (ZbSESC) ; ZDS dispatch address 

32 

33 

068A 

068D 

20 

75 

41 

16 

09 

A7 

•JB 

MOV 

ZDS» ESCRET ? IF not ZDS mode THEN 

34 

35 

0690 

20 

42 

03 

JB 


36 

.37 

■ 069:3 
0696 

75 

22 

16 

BO 

ESCRET: 

MOV 

RET 

DSADRL, #Lbw (HAZESC) ? Hazel tine dispatch address 
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3.5.ANSIESC. .T. .ANSI. e.s c.4P.«. SA r. 


.3 





. 

*ANSIFS 


4 

.5 





? 

in the 

ANSI mode. 

6 

.7. 






.ENTRY... 

..(A). =r character to par«;e 

8 

. 





7 

.EXI.T.... 

. .n.o.n^r.. 

10 

.11. 





. 

.LISES.... 

..all 

12 .. 

.13. 

14 

.15. 

0697 
. 0.69.9 

82 

.. .82..... 

18 

.19. 


ANSIES85 

8LR 

.QLR. 

FSDF ? FI as first time throush ^«-PSD* 

16 

.17. 

069B 

.0.69.e... 

75 

...9.0..... 

FO 

.....0793... 

08 


MOV 

.N.QV.. 

B» #AN£:ITL ; ANSI mode table parameters 

..PRTR...#ANSIJ.. 

18 

. 19. 

..Q6A1... 

... 1.2.... 

.... .082F... 


.... AESCi?. 

LCAUL 

SETNORM 5 Redtrir-iS. Hie;e»a+-r-h arlHr-iCcc 

20 

.21. 

06A4 

02 

0836 



LUMP 

STUMP ? Jump to anv routine 

22 . 

.23. 

24 

.25 






.ADM.3E.S8 

. ADM. .3. escape par«ier 

26 

.27. 





, .... 7. 

.*AElM3ES8* parse«5 the character receiveH tr Hr, orr.aAr- 

28 

. 29. 






routine 

» if anY» for ADM 3 mode. 

30 

.31.. 






.ENTRY..., 


32 

33 





? 

.exit.... 

..noOf__ ... . 

34 

.35. 





7 

7 

uses 

.gi.1.1. 

36 

.37. 

38 

. .2-?.. 

06A7 

12 

032F 


ADM3ES8: 

L8ALL 

SETNORM ; Restore dispatch address 

40 

41 

06AA 

06AD 

B4 

.. .02. 

3D 

.. 0CD6 

31 


8JNE 

LUMP 

A» #'■ = •'» ZE2 ; IF not THEN return 


cccecc cc ccc 
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1 



? ? 

HAZESC 


3 



m 

7 

? 

^^•HAZESC•»• parses the character received to do the proper. 

■4 

5 



• 

■ 

routine 

» if anY» for Hazel tine 1500 mode- 

6 

7 



• 

• 

» 

ENTRY 


8 

9 



1 

m 

7 

EXIT 


id 

11 



II 

7 

■ 

7 

USES 


i 2 

14 

IFt 

06BO 

06B3 

75 

90 

f 6 id HAZESCS 

0768 

MOV 

MOV 

B» #HAZTL ? Hazel tine table parameters 

i 6 

06B6 

80 

E9 

SJMP 

AESCl 5 Look throush table 
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,Z DSESC ^ 7 * ZDS e s c a pe s e u e n c e 


... .-.*. 

6 

7 

's. 

9 

”i‘6. 

11 

■ ■ 12. 

13 

'' 14' 06188 ■ 
15 

“l 6 O^BB’ 
17 06BE 
is' '6'6Ci' 
19 06C4 
■ 20 0606■ 
21 06C9 

■’22 . 

23 06C:C 
'24 b 6 C:D ■ 

25 06i::F 

26 . 

27 06D1 
28' '6'6D2 ' 
29 06D3 

■ '30 0605 ■ 
31 06D6 

■ 32’ ’oib'bJS ' 
33 06D9 

■ 34' OJbDB ■ 
35 06DC 

■ '36 b 6 DE'‘ 

37 

38 . 

39 

'46 . 


.:*?.DSES,C* parses the character received do the proper ZDS 
routine if anv. . 


.< , f. i r s t character after ESC sequence 

EXIT none 


USES all 


12 


082F 


ZDSESC: 


LCALL SETNORM ’ 


; Restore dispatch address’ 


B4 

02 

■■B4' 

Cl 

'B4" 

02 

C3 

■ *94 ■ 

40 


23 

■'fd" 

24 

' '8 .3 ’ 
CO 
"ED 
24 
83' 
CO 
' 22 " 


23 

03 


CJNE 

A» ZEiA 

7 

IF transmit pase THEN . 

10.36 



JMP 

R2_TP 


do it 

2D 

02 

ZEIA: 

CJNE 

A, ZEIB 

• 

7 


02 



AJMP 

BTAB 


do it 

2E 

03 

ZEIB: 

CJNE 

A, ZEiC 

7 

i'F ta'b functions THEN 

0ED.3 



JMP 

ZTAB 

7 

do it 



ZEIC: 

CLR 

C 

7 

Set UP to 

3l: 



SUBB 

A, #•••<;•' . 

u 

7 

Normalize into ranse 

OEi 



JC 

ZE2 

m 

7 

IF out of ranse THEN return 




RL 

A 

m 

7 

ELSE mult bv 2 




MOV 

TEMP, A 

7 

save value 

OA 



ADD 

A, #10 

7 

add code offset to low 




.'MO’VC’ 

A, @A+PC 

7 

set low bvte 

EO 



PUSH 

ACC 

7 

put onto stack 




MOV 

A, tEMP 

7 

set value back 

03 



ADD 

A, #3 

■ 

7 

add code offset to hish 




MtiVC 

‘A , ^A+PC 

m 

7 

set hish bvte . 

EO 



PUSH 

ACC 

7 

put onto stack 



ZE2: 

.RET. 


m 

7 

•jump to address . 




IFC ■" 

NE, ZDST'~¥. 






ERROR 

;TABLE 'ZDST' MUST 

FOLLOW 




cccccc c c ccc 






















111 1111 
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1 ?; ZDST - ZDS escape table. 


*ZDST* contains .the .second character in the .ranse of 
all escape se*iuences the Z“29 will respond to. 


5 






A 


; t abie 

entries are! 

Address of routine which performs the 

7 


5 requested operatic 

:in in order of their 

ASCII sequence. . 

8 

9 






10 66bF 

11 OAE1 

0B03 

OB4E 

zbst: bw 

DN 

EAM 

EKAM 

? < 

• 

7 — 

enter ANSI mode 

enter alt keypad mode . 

12 06E3 

13 06E5 

dB51 

0767 

bw 

DW 

XKAM 

UNDEF 

• 

7 

exit alt keypad mode 

undefined . 

14 66E7 
l!=i 06E9 

6B54 

0C8D 

bw 

DW 

El CM 

CUP 

? i 

; A 

enter insert char mode 

16 06EB 

17 06ED 

0CA8 

0C64 

bw 

DW 

CDN 

CRT 

; B 

; c 

cursor down 

cursor riq h t . 

18 06EF 

1 9 06F1 

0C3D 

OBAC 

DW 

DW 

CLFT 

CLRS 

; D 
; E 

cursor left 

20 06F3 

1 06F5 

0F39 

0F3r: 

DW 

DW 

EGM 

XGM 

? F 
? G 

enter graphic mode 

22 06F7 

23 06F9... 

24 06FB 

25 06FD 

26 06f'f 

27 0701 

28 0703 

29 0705 

30 0707 

31 0709 

32 070'b 

33 070D 

34 070F 
-jS 071 1 

0C36 

0518 . 

0C08 

OBEO . 

OD47 

0D88 . 

0DF4 

0B58 . 

0767 

0767 . 

0767 

0767 . 

0767 

0767 

bw 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

bw 

.P.W. 

SCH 

PRLF 

EED 

EOL 

PIL 

PDL 

PDC 

XI CM 

UNDEF 

UNDEF 

UNDEF 

UNDEF 

UNDEF 

.UNPEF. 

; H 
? I 
? J 
; K 
; L 
? M 
; N 
; 0 
; P 
; Q 
; R 

7 S 

; T 

; u 

set cursor home 

erase cursor to EOS 

perform insert line 

delete char 

undefined (blue) 

undefined (gray) 

undefined (F2) 

.u.nd.ef ,i.ne.«l. { F.-?.>. 

36 0713 

•-J~7 Csl 1 S 

0767 

0767 

DW 

DW 

UNDEF 

.. .UNPE.F. 

5 V 
; W 

undefined (F4) 

38 0717 

39 0719 .. 

40 07IB 

A 1 n71n 

0767 

.. .OCP-i?. 

OEAB 

OR3r 

DW 

.DW. 

DW 

PW 

UNDEF 

CUA . 

IDT 

EHSM 

; X 
; ..Y.. 
; Z 
; C 

undefined 

VT52 .c:y.n9.'5.r. . .(.earam.). 

VT52 identify 

.E.n t e.r..h .o. 1 d.. r.^ . .r(i 9 . 

..V/. + #-! .., 

42 071F 

43 0721 

44 0723 

4=; 07"''=; 

, . . .VP.--?'/--.. 

0B43 

1039 . 

1033 
\ 030 

DW 

DW 

DW 

DW 

XHSM 
R2_T25L 
R2_TL 
R2....TC .... 

; \ 

; 3 
■ 

Exit hold screen mode 

transmit line 

.t.r.a.n 5m.i .t.. .c.hara*; r. 

46 0727 

47 0729 

48 072B 

AO 

103C 

0767 . 

OBFl 

0767 

DW 

DW 

DW 

PW 

R2_PRNT 

UNDEF 

EBD 

..UNDEF. 

7 a 

; b 

. 

print paqe 

erase display to cursor 

. .gO.'1?.ti.n^.'4... 

H y U/ . . 

50 072F 

51 0731 

0767 

0767 

DW 

DW 

UNDEF 

UNDEF 

; d 

7 e 

undefined 

52 0733 

t=;o n7-:S 

0767 

Q7A7 

bw 

PW .... 

UNDEF 

.UN.PF.F. 

? f 

7 S 

undefined 

54 0737 

55 0739 

0767 

0EB3 . 

DW 

. PW. .... 

UNDEF 

. IP.TT . 

; h 

.7. .i.. 

undefined 

. X h.t j .f. Y.. 15^ r m i rxa .1 .. t:x . 

56 073B 

57 073D 

0EE8 

0EF4 . 

DW 

DW 

SCP 

USCP 

7 -j 

save cursor position 
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2 0741 

0767 

3 0748 

OE83 

4 0745 

OBCB 

. 5. .0.74.7... 

.. .0F3.3. 

6 0749 

0F36 

.7 074B... 

.. .0E3D 

8 074D 

OFOS 

.9. .074E... 

06.48 

10 0751 

0B4B. 

.XL.0.753... 

.. .OAFP. 

12 0755 

OBOO 

. 13.0.75.7... 

. . .C»3E7 . 

14 0759 

092C 

. 15. .0.756... 

.. .OAFA 

16 075D 

0FB3 

.17..075F... 

. . .0.7.67.. 

IS 0761 

0FB9 

.19.0763... 

...0.767.. 

20 0765 

0767 


DW 

EEL 

; 

DW 

UNDEF 


DW 

CPR 


DW 

EBL 

■ 

DW 

ERVM 

; 

DW 

XRVM 


DW 

ZDSSBR 


DW 

ZATR 


DW 

EKSM 

■ 

DW 

XKSM 


DW 

WEOL 


DW 

DEOL 

; 

DW 

SMS 

■ 

DW 

RMS 


DW 

RAMP 

7 

DW 

EKI 

* 

DW 

UNDEF 


DW 

DKI 

« 

DW 

UNDEF 

; 

DW 

UNDEF 



. 1... erase. ent Cre 1 i ne 
m uride fined 

. n_cursor..pos i t i o n , re p or t 

o erase line to cursr 
.F... .er ter , reyer se y i deo mode 
<=i exit reverse video mode 
.r... .*T'9.di f y. .Laud .rate..( param) 
s set video attributes 

. t_e n t e r e.X f .a •! . s h i f t e d m ode 

u eX i t ke vpad s h i f t e d mo de 
.y enter uira p around mode 
w exit wrap around mo«je 
.. .set modes ( pa.ram ) 

Y reset modes (param) 

. ?... .0^.^ X ?. f.*^! W® *"■ ^ 

C enable k e v b o a r d 

.! un. defined 

} disable kevboar «ij 
.~ .. .M.Ade.f .i.ried 
DEL undefined 


.23 


24 

. .2 5.. 

26 

.27. 

29 


; 

UNDEF - 

^^UNDEF«- 

undefined escape sequence 

.1 ?.. V.sed. .i n ZDS: escape parsing for undefined entrie«i 

30 


; 

ENTRY 


. .31. 


. ; 





■ 

EXIT 

none . 



. ; 



34 


7 

USES 

none . 

. .35. 





36 

37 0767 

...22. 

UNDEF: 

RET 

. ? Undefined ESC sequence 







C C € 


€ C C C C 


C C C 
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1 



;; HAZT - 

Hazel tine 1500 escape (tilde) table 

2 

3 



; *HAZT# 

contains 

the second character of the Hazel tine 

4 

5 



? escape 

(tilde) 

tabie. 

6 

7 



; table 

; escape 

entr ies are! The second character of the Hazel tine 
(tilde) se«iuence followed bv the address of the routine 

8 

9 



; which 

performs 

the requested function. 

10 

11 


0768 

HAZT EQU 



. i2 

13 

0768 

12 

DB 

12H 

; DC2 

14 

15 

0769 

0C36 

DW 

SCH 

; yet cursor home 

16 

17 

076B 

076C 

Ot 

0C8D 

DB 

DW 

OCH 

CUP 

• ••• ... pp 

■ Cursor up 

18 

19 

076E 

OB 

DB 

OBH 

; ~ VT 

20 

21 

076F 

0CA8 

DW 

CDN 

■ Cursor down 

22 

23 

0771 

0772 

1 C 

OBAC 

DB 

DW 

ICH 

CLRS 

. .. PS 

* Clear screen and home 

24 

25 

0774 

ID 

DB 

IDH 

; ~ GS 

26 

27 

0775 

6BC2 

DW 

CLFO 

• Clear foreground 

28 

'29 

0777 

0778 

OF 

OBEO 

DB 

DW 

OFH 

EOL 

? ~ si 

; Erase to end of line 

30 

31 

077A 

18 

DB 

18H 

; - CAN 

32 

33 

077B 

0C0:3 

DW 

EED 

“ Erase to end of display 

34 

35 

077D 

077E 

17 

OC19 

DB 

DW 

17H 

HEED 

; ~ ETB 

" Erase to eod (with bckgrnd) 

36 

37 

0780 

15 

DB 

15H 

; NAK 

38 

39 

0781 

0FB9 

DW 

DKI 

; Disable keyboard input 

40 

41 

0783 

0784 

06 

0FB3 

DB 

DW 

06H 

EKI 

; ~ ACK 

42 

43 

0786 

lA 

DB 

lAH 

; ~ SUB . 

44 

45 

0787 

0D47 

DW 

PIL 

7 Perform insert line 

46 

47 

0789 

078A 

i3 

0D8S 

DB 

DW 

13H 

PDL 

? ~ DC3 

; Perform delete line 

48 

49 

07SC 

19 

DB 

19H 

; EM 

50 

51 

078111 

0F2A 

DW 

EHALF 

7 Enter half intensity 

53 

078F 

0790 

IF 

0F26 

DB 

DW 

IFH 

XATR 


54 

CSJCTi 

0792 

XI . 

.DB. 

IIH 

; DCl <col> <:row> 

56 

0793 

0CD6 

DW 

CUA 

7 Cursor address 


.57 
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1 

0795 

05 


DB 

05H 

; ~ ENQ 

2 

3 

0796 

0E83 


DW 

CPR 

• Cursor position report 

4 


0010 

HAZTL 

EQU 

(*--HAZT)/3 

? Table length 


C € C C C € c C C € C 






























1 


9 3 3 3 3 


3 3 3 3 


3 
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1 



? 7 

ANSIT ~ 

ANSI escape 

table . 

2 

3 



* 

•«-ANSIT# 

contains 

the 

second character of the ANSI escape table 

4 



; 

Table- entries are 

; 

The second character of the ANSI escape 

6 



- 

s e u e nc 

e followed 

bv 

the address of the routine which performs 

7 




the 

re‘=iuested function. . 

S 

9 . 

10 


0798 

ANSIT 

EQU 


$ 



11 









12 

0798 

5B 


DB 


••• r ••• 


; ESC C 

13 

0799 

07BC 


DW 


ELB 


" Escape left bracket 

14 









15 

079B 

28 


DB 


• ( • •• 


; ESC ( 

16 

17 

079C 

0F3F 


DW 


GODES 


• GO designator 

IS 

079E 

29 


DB 




; ESC ) 

19 

079F 

0F47 


DW 


GIDES 


; Ul designator 

20 

■"’1 

07 A1 

37 


DB 


••■7' 


5 ESC 7 . 


07A2 

0EE8 


DW 


SCP 


7 Save cursor position 

24 

07A4 

38 


DB 


••• s 


; ESC 8 

•-.cr 

07A5 

0EF4 


DW 


USCP 


7 Unsave cursor position 

26 








; ESC = 

27 

07 A 7 

3D 


DB 


••• = ••• 


28 

b7A8' 

0B4E 


DW 


EKAM 


7 Enter keypad alternate mode 

2 '?' 









30 

07AA 

07 AB 

3£ 


DB 




; ESC > 

31 

0B51 


DW 


XKAM 


7 Exit keypad alternate mode 

32 

07 An 

4D 


DB 


-M- 


; ESC M . 

34 

07AE 

0518 


DW 


PRLF 


; Reverse index (rev line feed) 

36 

07B0 

07B1 

63 


DB 


c ■’ 


; ESC c 

37 

OAF 6 


DW 


ARAMP 


7 ANSI reset to power up 

-:9 









39 

07 p:-: 

44 


DB 


■D" 


; ESC D . 

40 

41 

0764 

0561 


DW 


PLF 


7 Perform line feed 

42 

07B6 

07B7 

48 


DB 


-H- 


; ESC H 

43 

0621 


DW 


HTS 


; Horizontal tab set . 

44 

45 

07B9 



DB 




; ESC #7 . 

46 

47 

07BA 

OADF 


DW 


APRNT 


; Print page 

48 


OOOC 

ANSITL 

EQU 


($-ANSIT)/3 

; fable length 
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. 1 , 

2 

O 

.V. 

4 


6 

.. 7 . . 

8 

9 

10 . 

.11 

12 

13 

14 . 

15 . 

16 67BC.12.6s2A 

17 


18 07BF 

19 07C2 

12 

50 

0971 

78 

20 07C4 

12 

082F 

...ZX.97Q7... 

... 7.5. 

....F.O.... 

22 07C:A 

90 

07D0 

.07QP.... 

...Q?. 

.... .QSSS. 



ELB: 


...IE 


.E.EB . 7 . escape ..Xef.t. bracket. 

*ELB# i s . a . cofi.t.i nuat i on of..th®. processi ng 

for ANSI escape sequences. The final character of the 
s.® 5 .‘J*.rice. .i.s. .d.eg:.ogl.e«;l. .w.i t.h . .o.r. wi thout, a preceedi ng^ parameter 
string and control is passed on to the associated routine. 


.ENTRY.ri.one. 

E.X I.T.to. .reque5.ted . r out i.ne 

U.SES.a 1.1... 


LCALL SETDISP 


Set dispatch and return 


LCALL PSD 

.•JNC.. . STRET 

LCALL SETNORM 

.MClV.E7..#ELETU.... 

MOV DPTR, #ELBT 

.tiJ.MP. STOMP 


" Get parameter string 

. .5.. .l.P. .0 ?.t. .d o.n e.. THE.N. .r e.t u .r n. 

" ELSE restore dispatch address 

. ?.. < .B). . t .a t'.l.^f.. 1 .e n.g t h. 

; (DPTR) = ESC C table 
..t-iyiTiP..to .any..rout.i.ne. 


€ C C C 


€ € C € € 


€ 


C 
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1 ;; ELBT - e 5 c a pe 1 e f t b r a c k € t t a b1 € . 

. 2 . 5 

3 ." *ELjBT» contains the third and/or. f inal character of the 

. '4 ...; ANSI escape se«=iuence for ESC C Pn F 


.;. fable entries are: Final character of ESC C Pn F se«iuence 

7 5 followed bv address of the routine which performs . 

g.. re«iuested function- 


9 . 

10 

11 

07D0 

ELBT EQU 

$ 


12 

13 07D0 

3E 

DB 


? ESC C > Ps F 

14 07D1 

15 

0898 

DW 

A2M 

; ANSI set mode #2 

16 07D3 

17 07D4 

3F 

0880 

DB 

DW 

7 

AIM 

; ESC t ? Ps F 
? ANSI set mode #1 

18 

19 07D6 

41 

DB 

•'A*' 

? ESC C Pn A . 

20 07D7 

21 

0C9D 

bw 

ACUP 

; ANSI cursor up 

22 07b9 

23 07DA 

42 

OCBB 

DB 

DW 

-B' 

ACDN 

; ESC C Pn B 
? ANSI cursor down 

24 

25 07DC 

43 

DB 

-C' 

; ESC C Pn C 

26 07DD 

ci)C6E 

DW 

ACRT 

; ANSI cursor right 

27 





28 07DF 

29 07E0 

44 

0C46 

DB 

DW 

•'D-' 

ACLFT 

; ESC C Pn D 

; ANSI cursor left . 

30 

31 07E2 

48 

DB 

•'H' 

; ESC C Pn ; Pn H . 

32 07E3 

33 

09FA 

DW 

APCA 

; ANSI perform cursor address 

34 07E5 

35 07E6 

4A 

OAIA 

DB 

DW 

•'J' 

EID 

; ESC C Ps J 

; Erase in display . 

36 

37 07E8 

4B 

DB 

-K' 

; ESC C Ps K . 

38 07E9 

0A2B 

bw 

EIL 

; Erase in line 

39 





40 07EB 

41 07EC 

4C 

0D7D 

DB 

DW 

••’L' 

APIL 

; ESC i: Pn L 

; ANSI perform insert 1ine . 

42 

43 07EE 

4D 

DB 

-M' 

; ESC n Pn M . 

44 07EF 

0DB6 

bw 

APDL 

; ANSI perform delete line 

45 





46 07F1 

47 07F2 

50 

0E32 

DB 

DW 

■••P' 

APDC 

; ESC C Pn P 

; ANSI perform delete char . 

48 

49 07F4 

5A 

DB 

•'Z' 

; ESC L Pn Z . 

50 07F5 

51 

6cc6 

DW 

APBT 

; ANSI perform back tab 

52 07F7 
07F!=S 

63 

DB 

DW 

ADA . 

; ESC C Pn c 

; ANSI device attributes .. 

54 

55 07FA 

. . . .VFr>«;V. 

66 . 

.DR.... 

.. 

.5..e§P..i:..P.rj.,?...Pa.f. 

56 07FB 

09FA 

DW 

APCA 

• ANSI perform cursor address 


. 57 . 
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. 1 07FD 

67 

OB 

El 

. 

ESC C Ps El 

2 07FE 

3 

062B 

OW 

ATBC 

; 

ANSI tabulation clear 

4 0800 

.5 .080.1... 

68 

... .0830 

OB 

.OW. 

-h- 

.A.:5M.. 

: 

ESC C P.S h 

ANSI set mode 

6 

7 0803 

6 C 

OB 

••• 1 •• 


ESC C Ps 1 

8 0804 

9 

0S5F 

OW 

ARM 


ANSI reset mode 

10 0806 

11 0807 

60 

0A3B 

OB 

OW 

m •' 

ASGM 


ESC 1 Ps m 

ANSI set graphics mode 

12 

13 0809 

6 E 

OB 

n 


ESC C Pn n 

14 080A 

15 

OAAF 

OW 

ACPR 

? 

ANS I c ij r s 0 r p o s i t i o n rep o r t 

16 0800 

17 OSOD 

70 . 

1030 

OB 

OW 

••• p ••• 

R2_TC 

] 

ESC Z p . 

Transmit page 

18 

19 080F 

72 

OB 



ESC C Pn " Pn r 

20 0810 

21 

0024 

OW 

OSR 


ANSI define scrolling region 

22 08i2 

23 0813 

73 . 

OEEF 

OB 

OW 

-S'- 

ASCP 

* 

ESC C s . 

ANSI save cursor position 

24 






25 0815 

75 

OB 

•'u' 

- 

ESC L u 

26 0816 

27 

of63 . 

OUl 

AUSCP 


ANS I IJ n s a ve c u r s o r p o s i t i o n 

28 0818 

29 0819 

7’6 

0F96 

OB 

OW 

-v- 

SBLR 


ESC C Pn V . 

Set blink rate 

30 






31 081B 

77 

OB 

•-W- 

- 

ESC C Pn w 

32 08it: 

33 

OAEA 

OUi 

ASBR 

7 

ANSI set baud rate 

34 08IE 

35 08IF 

7a . 

0AF6 

OB 

OW 

z 

ARAMP 

. 

ESC Z Pn z . 

ANSI reset to power up 

36 






37 0821 

7B 

OB 

••• c ••• 

• 

ESC Z Ps C 

38 0822 

39 

dB7A 

OW 

PCLk . 


Program clock 

40 0824 

41 0825 

70 . 

0A65 

OB 

OW 

■' ) ■' 

ASPF 

? 

7 

ESC Z Ps } . 

Set protected fields 

42 






43 0827 

40 

OB 


; 

ESC Z Pn © 

44 0828 

45 

0bE9 . 

OUi 

APiC 

* 

ANSI perform insert character 

46 

6 biE ELBTL 

EQU 

r$~ELBt)/3 


fable length 








C € C C C C 


C C 


C € C 
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1 




, , 

SETDISP - set dispatch address . 

2 

3 




• 

#SETDISP* sets the dispatch address to the address Just . 

4 

5 




? 

? 

folldwins the call to this routine. this routine then 

executes a -RET-. Be careful 1 with this. A call to this . 

6 

7 




7 

routine does not return to back to the routine that called 

.8' 

9 




m 


.‘10‘ 

11 




? 

m 

7 

ENTRY none 

. 12 

13 




? 

EXIT none 

. i4 

15 




? 

USES none 

.16 

17 

082A 

DO 

15 

SETDISP: 

POP DSADRH ? Get hish bvte of data . 

. 18 

19 

082C: 

OS2F 

DO 

22 

16 


.pijp DSADRL ; Get low bvte of data 

RET .. 

20 

21 .. . 

22 

r/'z> 






24 

25 




7 

SETNORM - set dispatch normal 

26 

27 

28 
29 




■ 

7 

7 

7 

• 

7 

frSETNORM* sets the dispatch address for processing characters 

30 

31 




7 

• 

7 

EisitRY none 

32 

33 




7 

7 

EXIT none 

34 

35 




• 

7 

USES none 

36 

37 

082F 

75 

16 87 

SETNORM: 

MOV DSADRL, #LOW (NORM) ? Restore dispatch address. 

38 

39 

0832 

0835 

75 

22 

15 00 


MOV DSADRH, #HIGH (NORM) 
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. X . 


. SUMP. .T 

.5 r.c h. . t.^ b 1 e an d j uiti p 

.a . 


STCALL 

Jump to routine in (DPTR) 

4 

.5. 

* 

*STJMP# 

does a search table operation. If the data was found 
.a . .lump. .t.o.. .the..address.. in . .th.e. .(.DPTR ) .».. .o.therwise it 
return- 

6 

. 7 . 


does a 

8 

9 


*STCALL 

only does a Jump to the address in the (DPTR). 

10 

.11. 

. 

.ENTRY... 

.(DPTR) == address to Jump t*"* 

12 

.la . 


. E)(.1T .... 

.no.ne. 

14 

.15. 


. USES 

..A.. 

. 17.. 

18 08.36 

.19.0838... 

31 F7 STJMP! 

.. 40 02 

ACALL 

. UC . 

XSTAB ; Search the table 

.STRET ! TF rarrv i c ca+- TWPM r.+■ i ■ rs 

20 

.2.1. .Q8.8A... 


.OCR. 

.A . 

22 083B 

. 23 . 

73 

JMP 

@A+DPTR ; ELSE Jump to address 

24 08.3C: 

2*2 STRET: 

RET 

; Return 


c 


€ € C C C 


C C C C 


c 
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1 



. . 

ASM - 

ANSI set mode sequence 


2 

3 



II 

» 

u 

•9 

■»ASM* 

set the specified mode(s). 


4 ? 

5 5 . 

6 

7 



! 

• 

? 

ENTRY 

none 


8 

9 



? 

m 

7 

EXIT 

none 


10 

11 



• 

USES 

a 1 1 


12 

13 083D 

31 

D1 

asm: 

ACALL 

GNP 

; Get next (or f i rst). .par.ameter. 

14 033F 

15 0841 

40 

75 

OE 

FO 05 


JC 

MOV 

ASMR 

B, #ASMTL 

; IF parameter THEN 

; (B) == table length . 

16 0844 

17 0847 

90 

31 

0850 

F7 


MOV 

ACALL 

DPTR, #ASMT 

XSTAB 

; (DPTR) = "ESC C Pn h" table 

; search table ... 

18 0849 

19 084B 

40 

11 

04 

3A 


JC 

ACALL 

ASMR 

STCALL . 

; IF found THEN 

; Jump to. .r.ov.t.ip.e. 

20 08*40 

21 

80 

EE 


SJMP 

ASM 

• and keep going 

22 084F 

22 


ASMR: 

RET 



24 

26 

27 



? ? 

ASMT - 

- ANSI set mode. . 5 .e.?» 4 en.?^.. .t^h.l. . 

28 

29 



. 

.*ASMT* . conns. .y^.1 j.d. .par^.mete.rs 

for " ESC . .C.. Pn. .hg.gc.€: . 

30 







32 

33 

0850 


ASMT 

EQLl 

% 


34 0850 

35 0851 

01 



DB 

.OW. 

1 

...EGATM. 

; ESC t i h 

5 .. t.^ r.. 9.'4 ^.r. d.^ d.. ^ a. .t r a n s. f.e r.. 

36 

-.7 ni =!*=;9 

02 



m. . 

...2 . 


38 0854 

9Q 

0FB9 



DW 

DKI 

; Disable kevboard input 

40 0856 

41 0857 

04 

.. 0.854. 



DB 

.DW.. 

4 

...EJCM. 

; ESC C 4 h 

5 . .E.n t.^r.. . .<;barac.ter.. mode. 

42 

43 0859 

06 



DB 

6 . 

.C.. 6 ..h. 

44 085A 

45 

0B74 



DW 

EERM 

• Enter erasure mode 

46 085C; 

4.7 Oft'Sn 

14 

ORA? 



DB 

DW 

20 

EACR . 

; ESC i: 20 h 

. y.f.. .Vv.vR .. 

48 

49 

... .xvw-f*. 

0005 


ASMTL. 

.EOU... 

. 

Tab .i.«..l^.n P.th. 




























































229r 6H; MICROBENCH 8051 CROSS ASSEMBLER (VI)-218 
... ».** . .CfiMP.UT£R .T£RMIN<^L. FlRMWBRe. .VERSIQIV. .1 ,.03. 

24~FEB-83 15 

1:30:06 PAGE 72 


1 



. . 

ARM - 

ANSI.. reset mode sequence 


2 

3 




*ARM# 

r.eset the specified mode(s). 


4 

, . •-.* 



; 




6 

7 



T 

ENTRY 

none 


8 

9 



? 

? 

EXIT 

none 


10 

11 




USES 

all . 


12 







13 085F 

31 

D1 

arm: 

ACALL 

. ‘ REPEAT get parameter 


14 0861 

15 0863 

40 

75 

EC 

FO 

05 

JC 

MOO 

? IF no parameter THEN return 

.. .P.’.. j^OP^TL ; (B) = table length 


16 0866 

17 0869 

90 

31 

0871 

F7 


MOV 

ACALL 

DPTR. #ARMT i (DPTR) = "ESC C Pn i" table 

... . 5 search tab 1 e 


18 086B 

19 086D 

40 

11 

E2 

3A 


JC 

ACALL 

ASMR ; IF not found THEN return 

.. ; call routine 


20 086F 

21 

80 

EE 


sJmp 

ARM ; UNTIL forever 


22 







23 







24 







25 



» * 

ARMT - 

ANSI reset mode sequence table 


26 

27 

28 



.?. 

*ARMT* 

..contains valid parameters for “ESC C Pn 1" ^^eguenre 


29 







30 

31 

0871 


ARMt 

EQU 

i . 


32 0871 

33 0872 

01 

0B71 



DB 

DU 

; ESC c 1 1 . 

. ' Exit guarded area transfer 


34 

35 0874 

*" * ■ •^V" " VS8'^6’" " ' 

02 



DB 

2 . ; ESC C 2 1 


36 08/D 

37 

6FB3. 



DW 

? Enable keyboard input 


38 0877 

39 0878 

40 

04 

0B58 



DB 

DUi 

4 ^ i ESC [41 . 

. ’ Exit insert character mode 


41 087A 

06 



DB 

; ESC C 6 1 


.42' '687b 

43 

6B77 



DU 

; Exit erasure mode 


44 6f37D 

45 087E 

14 

0B65 



DB 

DUI 

L'b ! ESC C 20 i . 

..XACR 5 Disable auto CR on LF 


46 

47 

0005 


ARMTL 

EQU 

..^^”ARMT)/3 ; Table length 














c c 


c c c c 


C € C C 


c 





































2 


2 2 


2 2 2 


2 2 2 2 


2 
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1 




. , 

AIM - 

ANSI mode #1 



2 




? 

*A1M* 

inputs the parameter 

string 

and final character for 

4 





the ESC C ? Ps F se«=^uence 

" 


6 

7 





ENTRY 

none 



8 

Q 





EXIT 

none 



10 

1 1 





USES 

a1 1 



i2 

14 

1 !=; 

0880 

0882 

C:2 

11 

18 

2A 

AIMS 

CLR 

ACALL 

PSDF 

SETDISP 

; 

Clear «PSLi# f i as 

Set dispatch and return 

16 

17 

IS 

19 

20 
21 

0884 

0886 

0888 

OSSA 

088D 

0890 

31 

50 

11 

75 

90 

01 

71 

C7 

2F 

FO 02 

0892 

36 


ACALL 

JNC 

ACALL 

MOV 

MOV 

AJMP 

PSD 

ASMR 

SETNORM 

B, #EQMTL 

DPTR, #EQMT 

STUMP 

7 

m 

7 

7 

7 

7 

Get parameter string . 

IF not done THEN return 

ELSE restore dispatch 
(B) = table length 

(DPTR) = ESC C ? table . 

J u m p 1 0 a n y r o u t i n e 


23. 


EQMT ■" esc ape . C.. . P.n F=; s t a b 1 e 


jC/ 

28 




#EQMT* 

contains the 

fourth and/or final character . 

30 

32 


0892 

EQMT 

EQU 

$ 


.V'.-i.' . 

34 

0892 

68 

08 RO 


DB 

DW 

h ••• 

A ISM 

; ESC r. ? Pn h 

; ANSI set mode #1 . 

36 

37 

38 

0895 

0896 

6 C . 

08CC 


DB 

DW 

1 

AIRM 

; ESC [ ? Pn 1 . 

; ANSI reset mode 

40 


0002 

EQMTL 

EQU 

($-EQMT)/3 

; Table length 
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1 





.X W.'r-'.A . .Jk f .‘-'v'. . . 

A2M - 

ANSI mode #2 


3 





7 

7 

#A2M» 

inputs the parameter string 


4 






the ESC C > Pn Ps se<=iuerice. 


6 





7 




7 





7 

ENTRY 

none 


« 

9 





7 

EXIT 

none 


lu 





7 




11 





7 

USES 

al 1 


Ik: . 

13 

14 

15 

16 

0393 

089A 

82 

11 

18 

2A 


A2M: 

CLR 

ACALL 

PSDF ; 

SETDISP ; 

Clear #PSD# flas 

Set dispatch and return 

17 

10 

19 

089C: 

089E 

08A0 

31 

50 

11 

71 

22 

2F 



ACALL 

JNC 

. ACALL 

PSD ; 

AISR ; 

SETNORM ? 

. Get.parameter ^triR? 

IF not done THEN return 

20 

21 

08A2 

08A5 

75 

90 

FO 

.. . .QQAA. 

02 


MOV 

MOV 

B, ttEGTTL ; 

.. .QP.TR 7 #EGTT ; 

(B) = table length 
(TlPTR) -• rP.r r "-r. +-ahlA 

23 

08A8 

01 

36 



AJMP 

STUMP 

Jump to anv routine 

24 









25 









26 

27 





- - 

EGTT - 

escape t > Pn Ps table 


2W 

29 

30 





; 

#EGTT# 

contains the fourth and/or 

final character. 

31 









33 


OSAA 



EGTT 

EQU 

i 


34 

35 
.36 

03AA 

08AB 

68 

08FF 




DB 

DN 

••• h ••• ; 

A2SM ? 

ESC C > Pn h 
.ANSI set mode #1 

37 

08AD 

6C 




DB 

1 ? 

ESC 1 > Pn 1 

38 

39 

08AE 

0944 




DW 

A2RM ; 

ANSI reset mode 

40 


0002 



EGTTL 

EQU 

■($--EGTT)/3 

Table length 


C € C C C C c C C € C 
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1 " ’ 

AISM - 


2 ? 

3 ? 

#A1SM* 



4 

5 


6 

7 





7 

• 

7 

ENTRY 

none 



8 

9 





7 

« 

7 

EXIT 

none 



10 

11 





• 

7 

USES 

A, B, DPTR 



12 

13 

08B0 

31 

D1 


AISM: 

ACALL 

GNP 

; Get next (or first) 

parameter 

14 

08B2 

40 

OE 



JC 

AISR 

; IF parameter THEN 


15 

08B4 

75 

FO 

03 


MOV 

B, #A1STL 

; (B) = table length 


i6 

0867' 

90 

.68C3 



.MOV ■ 

DPTR, #A1ST 

? (DPTR) = ESC i: ? Pn 

h table 

17 

08BA 

31 

F7 



ACALL 

XSTAB 

; Search table 


18 

bsBc’ 

40 

04 



JC 

AISR 

; IF found THEN 


19 

08BE 

11 

3A 



ACALL 

STCALL 

? Jump to routine 


20 

21 

08C0 

80 

EE 



SJMP 

AISM 

! and keep going 


22 

0802 

22 



AISR: 

RET 





23 

24 


25 

26 
27 



; ; AIST - 

ANSI mode 

#1 


28 



; 




2Q 



; *A1SMT# 

contains 

val 

id parameters for ESC C ? Pn h sequence... 

30 

.V.-H . 

32 


08C3 

AIST EQU 

$ 



. . 

34 

08C3 

02 

DB 

2 


; ESC C ? 2 h 

2S 


ORDT 

DW 

. .E.2M. 


.?.. fri9.'4^. 

36 







27 

npspA 

03 

DB 

..3.. 


? ESC C ? 3 h . 

38 

22 

.S'P.vW .. . 

08C7 

OBAC 

bw 

CLRS 


; Enter 132 column mode 

40 

08C9 

07 

DB 

7 


; ESC C ? 7 h 

.41. 

.OSQA... 

...QAFR.. 

pw . ... 

..WE-OL. 


.;.. .wr.4P. .9.x. .€:o.d. .o.f. .1. 1 . 0 ^.. 


42 

4.3 


.QQ.Q3. 


.Al.STU 


EQU 


.(.f7AkST)/3 
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-?.^.“ .ANSI, n)9.^A . r.<?A fTio ,5e«iuenee 


6 

...7., 

9 

To’ 
11 
12 ■ 


13 

OSCC 

31 

D1 

14 

OSCE 

40 

F2 

15 

OSDO 

75 

FO 

16 

08D3 

90 

OSDE 

17 

08D6 

31 

F7 

18 

OSDS 

40 

E8 

19 

OSDA 

11 

3A 

20' 

OSDC 

SO 

EE 


21 

"22 . 

2-9 

■‘24 . 

2'!^ 

26. 

27 

'23 . 

29 

‘30. 

31 

■32 '08DE 
33 08DF 

■34 . 

35 08E1 
‘ 36 OSElS ■ 
37 

'38' ‘68E4 ‘ 
39 08E5 
■46 . 

41 


; 

■»-AlRM# 

resets the specified 

mode(s)„ 


? 

ENTRY 

none 



; 

EXIT 

none 



‘ 

USES 

A, 'b, DF*TR 



AIRM: 

ACALL 

JC 

MOV 

MOV 

ACALL 

.JC 

ACALL 

S.JMP 

GNP 

AISR 

B, #A1RTL 

DPTR, #AiRt . 

XSTAB 

AISR 

STCALL 

AIRM 

; REPEAT set parameter 
" IF no par.ameter THEN 

; (B) = table length 

; (tiPTR) = ESC t ? Pn 1 

• Search table 

? IF found tl-lEN 

.? Jump to routine 

• UNTIL forever 

exit 

1 table 


. ^^f'lT. .7. 9.9'A* ^^ reset mode table 

. 7 A .1 f.. 'r.9 T'.'tC'.^.. .y^.l i .d . .P!^r.^9.9 .A9 r.^ f. 9r. . c ? Pn 1 5 e<=? ue n ce. 


03DE 

■ 02 " ’' 
0B07 

03 

'OBAC' 

"07"" 

OBOO 

0003 


AIRT 


AIRTL 


EQLl 

DB 

DW 

$ 

EZM 

; ESC t 
" Enter 

? 2 1 . 

VT52 mode 

DB 

3 

; ESC C 

? 3 1 

DW 

CLRS . 

? Enter 

80 column mode 

DB 

7 . 

; ESC C 

? 7 1 

DW 

DEOL 

• Discard past end of line 

EQU 

($--AlRT)/3 

; Table 

1ensth 


C € C C € C € C € € C 

























3 


3 


3 


3 3 3 3 3 
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1 





7 7 

SMS - 

set mode se^iuence 



2 

3 





7 

• 

7 

•«-SMS* 

sets the mode specified 

bv 

the last character in the . 

'4 





7 

se«iuence - 



5 





7 





6 

7 





7 

7 

ENTRY 

none 



8 

9 





m 

7 

EXIT 

none 



10 

11 





7 

■ 

7 

USES 

al 1 



12 

13 ....... 

14 

15 

08E7 

11 

2A 


SMSs 

ACALL 

SETDISP 


Set dispatch and return 

16 

17 

08E9 

08EB 

' li. 

C3 

2F 



ACALL 

CLR 

SEtNORM 

c 


Restore dispatch address 

18 

19 

OSEC ■■ 
08EE 

94 

40 

31 

OE 



SUBB 

JC 

A, #'K 

SMSRET 

7 

7 

Subtract offset 

Check for lower bounds 

20 

21 

08F0 

08F3 

B4 

50 

09 

09 

00 

SMSl: 

CJNE 

JNC 

A, siisi 

SMSRET 

7 

Check for upper bounds 

.2^ 

23 

OSFS ■ 
08F6 

04 

75 

FO 

09 


INC 

MOV 

■ ■ A. 

B, #SMSTL 

• 

7 

Bump UP into ranse 
(B) = table length 

24 

25 

08F9 

03FC 

90 

01 

0911 

36 



MOV 

AJMP 

DPTRt #SMST 

STUMP 

1 

(DPTR) = ESC X Pn table 

Jump to anv routine 

26 

27 

08FE 

22 



SMSRET: 

RET 
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.3^.".7.A?SM - ANSI . #2 .set 

.-f’.“.*A2SM* set the .specif ied mode ( s ) - 


6 

. 7 




* 

ENTRY 

none 



8 

. ^ . 




; 

EXIT 

none 



10 

.1.1.. 




7 

USES 

A, B, DPTR 


12 

.1.3. .08.FF.. 

14 0901 
.1.5.0903 

....31. 

40 

75 

.. .Cl. 

FB 

FO 

09 

A2SM5 

ACALL 

JC 

MOV 

GNP ; 

s'mSRe’t ; 

B, #SMSTL 

. .Get. next ( or first) parameter 

IF parameter THEN 
(B) = table len<=>th 

16 0906 

17 0909 

18 090B 
.1.9 090D 

90 

31 

40 

11 

0911 

F7 

FI 

...3.A. 



MOV 

ACALL 

JC 

ACALL 

DPTR, #SMST ; 
XSTAB ; 
SMSRET ; 
STCALL ; 

(DPTR) = ESC C > Pn h table . 

Search table 

IF found THEN 

20 090F 
. 21 

80 

EE 



JMP 

A2SM 


and keep going 

22 









24 




; ; 

SMST - 

set mode 

sequence table 


26 

. 27 

28 

.29. 




; . 

. -s-SMST* contains 

and ESC C > Pn 

valid parameters 
h se«=juence 

for ESC X Pn sequence 

30 

31 

0911 



SMST 

EQLI 

$ 



32 

33 0911 

01 




DB 

1 

, 

ESC X 1 ESC C > 1 h 

34 0912 
.35. 

OBOB 




bw 

E25L 

7 

Enable 25th line 

36 0914 

37 0915 

02 

0B2D 




DB 

DW 

2 

NKC 

; 

ESC X 2 ESC C > 2 h . 

No keyboard click 

38 

39 0917 

40 0918 

41 

03 

0B3C: 




DB 

DW 

3 

EHSM 

7 

ESC X 3 ESC L > 3 h 

Enter hold screen mode 

42 091A 

43 09IB 

04 

0B33 




DB 

DW 

4 

SBC 

; 

ESC X 4 ESC C > 4 h . 

Set "block" cursor 

44 

45 091D 

05 




DB 

5 

, 

ESC X 5 ESC C > 5 h 

46 091E 

47 

/I Cl y'x <“*i 

0B5F 




DW 

DC 

$ 

Disable cursor 

48 0920 

49 0921 

06 

0B48 




DB 

DW 

6 

EKSM 

* 

ESC X 6 ESC t > 6 h . 

Enter keypad shifted mode 

50 

51 0923 

07 




DB 

7 

. 

ESC X 7 ESC C > 7 h 

52 0924 

53 

54 0926 

55 0927 

56 

57 0929 

0B4E 

08 

0B68 

09 




DW 

DB 

DW 

DB 

EKAM 

8 

EALF 

9 

7 

Enter keypad alternate mode 

ESC X 8 ESC C > 8 h . 

Enable auto LF on CR 

ESC X 9 ESC C > 9 h 


€ € € C € 


C € C C C C 
























3 3 5 

3 

3 

3 

3 3 3 

Z29R0M; MiCROBENCH 8051 CROSS ASSEMBLER (Vi)-2i8 
*** Z~29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 

24-"FEB~83 

15:30:06 PAGE 79 



1 092A 0B62 

DW 

EACR 


■ Enable auto CR on LF 

2 

3 0009 SMSTL 

EQLI 

($-SMST)/3 


; Table lensth 
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. 1 





; ; 

RMS - 

reset mode s e u e n c e 

2 

.•?. 





• 

•«-RMS# 

.r.€*set5 the mode specified bv the last character in the 

4 

. 5 





7 

? 

se«=!uence . 

6 





7 



7 





; 

ENTRY 

none 

8 

9 





i 

EXIT 

none 

10 





7 



11 





7 

USES 

al 1 

12 








13 








14 

092C 

11 

2A 


RMS: 

ACALL 

SETbisP ; Set dispatch and return 

15 







16 

092E 

11 

2F 



ACALL 

SETNORM ? Restore dispatch address 

17 

0930 

C:3 




CLR 

C 

18 

0931 

94 

31 



SUBB 

A» #'1‘ ? Subtract offset 

19 

0933 

40 

OE 



JC 

RMsRET ; Check for 1ower bounds 

20 

0935 

B4 

09 

00 


CJNE 

A, #r'9'--'0'), Riisi . 

21 

0938 

50 

09 


RMSl: 

JNC 

RMSRET 7 Check for upper bounds 

22 

093A 

04 




INC 

A ; Bump up into raroe 

23 

093B 

75 

FO 

09 


MOV 

B, #RMSTL ; (B) = table lensth 

24 

093E 

90 

0956 



MOV 

DPTR, #RMSt ! (DPTR) = ESC Y Pr. table . 

25 

0941 

01 

36 



AJMP 

STJMP ! Jump to any routine 

26 








27 

0943 

22 



RMSRET: 

RET 




€ € € C € C C € € € € 
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1 




? 7 

A2RM - 

ANSI mode #2 reset mode 

sequence 

2 

3 




; 

*A2RM# 

reset the specified mode(s). 

4 ? 

? 

6 

7 




7 

7 

ENTRY 

none 


8 

9 




7 

• 

7 

EXIT 

none 


id 

11 





USES 

A, B, DPTR 


12 

13 

0944 

31 

D1 

A2RM: 

ACALL 

GNP 

; Get next (or first) parameter 

14 

15 

0946 

0948 

40 

75 

FB 

FO 09 


JC 

MOV 

RMSRET 

B, #RMSTL 

; IF parameter THEN 
; (B) = table lensth 

16 

17 

094B 

094E 

90 

31 

0956 

F7 


MOV 

ACALL 

DPTR, #RMST 

XSTAB 

; (DPTR) = ESC C > Pn 1 table 

; Search table . .. 

is 

19 

0950 

0952 

40 

11 

FI 

3A 


JC 

ACALL 

RMSRET 

STCALL 

; IF found THEN 

’ Jump to routine . 

20 

21 

0954 

80 

EE 


SJMP 

A2RM 

■ and keep going 

.g. . 

24 

25 




, . 

RMST - 

ANSI reset mode se<=iuence 

table . 

26 

27 





^<-RMST* 

contains valid parameter 

s for ESC C > Pn 1 sequence. . 

28 

29 . 

30 

31 


0956 


RMST 

EQU 

$ 


32 

33 

0956 

0957 

01 

OB 15 



DB 

DW 

1 

..D25L. 

; ESC V 1 ESC 1 > 1 1 

? Disable 25th 1in§. 

34 

35 

36 

37 

0959 

095A 

02 

0B26 



. m . 

DW 

.. 2. 

EKC 

; ESC Y 2 ESC 1 . 

; Enable keyboard c1ick 

38 

39 

095C 

095D 

03 

0B43 



DB 

.quj. 

C* 

XHSM . 

? ESC V 3 ESC C > 3 1 

.. 7. .EKi.t.. hold. . 

40 

41 

095F 

P4 



. m . 

4 . 

; ESC Y 4 ESQ. .c. 4..1. 

42 

43 

0960 

0B37 



DW 

sue 

’ Set "underscore" cursor 

44 

45 

0962 

0963 

05 

0B5C 



DB 

DW 

EC . 

; ESC Y 5 ESC C > 5 1 

• Enable cursor . 

46 

47 

0965 

06 



DB 

6 

? ESC Y 6 ESC n. >. 6..1. 

48 

49 

0966 

0B4B 



DW 

XKSM 

“ Exit keypad shifted mode 

50 

51 

0968 

0969 

07 

0B51 



DB 

DW 

7 

XKAM 

; ESC Y 7 ESC C > 7 1 

; Exit keypad alternate.mp.de. 

52 

53 

54 

096B 

096C 

08 

0B6B 



.DB. 

DW 

.. 

XALF 

? V 8 ESC . 

■ Disable auto LF on CR 

56 

57 

096E 

096F 

09 

0B65 



DB 

DW 

Cl 

XACR . 

; ESC Y 9 ESC 1 > 9 1 

.. 5. .PAsAb.I.^r. .^Mt0 . CR. .p.n. UF. 
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. 1 . 

0009 RMSf L.EQU.( i-RMStV/S 


Table length 


€ € € C C C € € € € C 


































3 3 3 3 3 


3 3 3 3 
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1 





m m 

*1 y 

PSD - 

parameter strins decoder 



2 

3 





7 

m 

7 

*PSD* 

inputs a parameter string 

of 

decimal numbers separated 

4 





m 

7 

bv a semicolon (to a maximum 

of 

8) 

until the final character 

5 





7 

of the 

escape sequence (non decimal and not a semicolon) is . . 

6 

7 





m 

7 

u 

7 

inputed. 




8 

9 





7 

■ 

7 

ENTRY 

(A) = next parameter 

character , ... 

10 





7 






11 





7 

EXIT 

(A) = last character 

inputed (Ps usually) 

12 

13 





7 

7 


•■'C' = set if done decoding 

, clear otherujise 

14 





7 

USES 

A, B, DPTR, TEMP 




15 











16 











17 

0971 

20 

18 

OE 

PSD: 

JB 

PSDF, PSDB 


7 

IF first time through THEN 

18 

0974 

D2 

18 



SETB 

PSDF 


? 

toggle flag 

19 

0976 

75 

lA 

F8 


MOV 

PMADRL, #LOW (PMBUF) 


; 

set parameter pointer 

20 

0979 

75 

19 

57 


MOV 

PMADRH, #HIGH (PMBUF) 




21 

097C 

75 

IB 

FF 


MOV 

PMNUM, #~1 


; 

init number of parameters 

22 











23 

097F 

75 

1C 

00 


MOV 

PMVALUE, #0 



init parameter value 

24 

25 

0982 

B4 

3A 

00 

PSDB: 

CJNE 

A, #'9-' + l, PSDBl 




26 

0985 

50 

IB 


PSDBl: 

JNC 

PSDE 


7 

IF below upper range AND 

27 

0987 

B4 

30 

00 


CJNE 

A, #•'0", PSDB2 




28 

098A 

40 

16 


PSDB2: 

JC 

PSDE 


7 

IF above 1ower range THEN 

29 











30 

098C 

94 

30 



SUBB 

A, #'0' 


; 

remove ASCII offset 

31 

098E 

05 

1C 



XCH 

A,. PMVALUE 


? 

get previous value 

32 

0990 

75 

FO 

OA 


MOV 

B, #10 




33 

0993 

A4 




MUL 

AB 


* 

value := value * 10 

34 

0994 

25 

1C 



ADD 

A, PMVALUE 


; 

value := value + newparm 

35 

0996 

F5 

1C 



MOV 

PMVALUE, A 


: 

save new parameter value 

36 

0998 

E5 

IB 



MOV 

A, PMNUM 




37 

099A 

B4 

FF 

03 


CJNE 

A, #-l, PSDI 


? 

IF parmnurn = -1 THEN 

38 

099D 

75 

IB 

00 


MOV 

PMNUM, #0 


; 

parmnum := 6 

39 

09A0 

C3 



PSDi: 

CLR 

C 


; 

flag = still parsing string 

40 

09 A1 

22 




RET 





41 











42 

09A2 

85 

lA 

82 

PSDE: 

MOV 

DPL, PMADRL 


m 

7 

ELSE get parameter address 

43 

09A5 

85 

19 

83 


MOV 

DPH, PMADRH 




44 

09A8 

FD 




MOV 

TEMP, A 


• 

7 

save character temporary 

45 

09A9 

E5 

1C 



MOV 

A, PMVALUE 


m 

get current parameter value 

46 

’69AB ’ 

FO 




MOVX 

©DPTR, A 


7 

save in parameter buffer 

47 

09AC: 

A3 




INC 

DPTR 



bump parameter address 

48 

09AD 

E5 

82 



MOV 

A, DPL 


" 

get low byte address to 

49 

09AF 

B4 

00 

05 


CJNE 

A, #L0W(PMBUF+8), PSD2 


IF overflow THEN 

50 

09B2 

75 

IB 

08 


MOV 

PMNUM, #8 



give max number of parameters 

51 

09B5 

80 

08 



SJMP 

PSD3 


« 

and skip . 

52 

09B7 

85 

82 

lA 

PSD2: 

MOV 

PMADRL, DPL 


? 

ELSE replace 

53 

09BA 

85 

83 

19 


MOV 

PMADRH, DPH 


■ 

parameter address . . . 

54 

09BD 

05 

IB 



INC 

PMNUM 


7 

bump number of parameters 

55 

.09.BF. 

EP 



.P:503?. 

MOV 

A, TEMP 



... r.^ t P r . p.c i.g i.rj ^. 1 ..h.^^ r .4 e C. 

56 

6960 

B4 

3B 

OC 


CJNE 

A, #•'?•', PSDRET 


m 

7 

IF THEN 

57 

09C3 

75 

1C . 

00 


MOV 

PMVALUE, #0 . 


II 

.r.^ ?.e t.. P.4 r.4iTi.41 e r.. y.a 1 .u^.. 
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1 

09C6 

AD 

IB 


MOV 

TEMP, PMNUM 


2 

3 

09C:S 

09CB 

BD 

05 

00 

IB 

02 

CJNE 

INC 

TEMP, #0, PSD4 

PMNUM 

• check for ' as first char 

; IF so THEN adjust number 

4 

5 

09CD 

09CE 

C3 

22 


PSD4: 

CLR 
.RET 

C 

* flag = still parsing string 

6 

7 

09i::F 

09DO 

D3 

22 


PSDRET: 

SETB 

RET 

C 

? Flag = finished parsing 


€ C € 


C C C 


C € 


C C 


C 

































3 


3 


3 


3 


3 


3 


3 


3 
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1 

■ • 

GNP - 

get next parameter 



2 

3 

7 

7 

*GNP* 

gets the next (or first) parameter 

from 

the parameter 

4 

; 

buffer 

. 



5 

; 





6 

? 





7 

7 

ENTRY 

none 



8 

9 

7 

m 

7 

EXIT 

(A) == next (or first) parameter» 

0 if 

no more 

10 

7 


•'■C' = set if no parameters left7 

c 1 ear 

otherwise 

11 

7 





i2 

; 

USES 

A, DPTR 




15 

09D1 

20 

19 

08 

GNP: 

JB 

GNPF, GNPl 

7 

IF first time since ESC THEN 

16 

09D4 

D2 

19 



SETB 

GNPF 


toggle flag 

17 

09D6 

7p 

lA 

F8 


MOV 

PMADRL, #LOW (PMBUF) 

; 

set parameter address 

18 

19 

09D9 

75 

19 

57 


MOV 

PMADRH, #HIGH (PMBUF) 



20 

09DC 

85 

lA 

82 

GNPl: 

MOV 

bPL, PMADRL 

? 

Get pointer to next parameter 

21 

09DF 

P5 

19 

83 


MOV 

DPHi PMADRH 



22 

09E2 

E5 

IB 



MOV 

A 7 PMNUM 

; 

Get number of parameters 0..7 

7r-i 

09E4 

70 

02 



JNZ 

GNP2 . 

7 

IF no more or none at al 1 

24 

09E6 

D3 




SETB 

C 

7 

•'C' = no more left 

25 

09E7 

22 




RET 




26 

09E8 

EO 



GNP2: 

MOVX 

A, ©DPTR 

7 

eLsE get parameter- 

27 

.Q9E9. 

A3 




INC 

DPTR 

7 

bump pointer . 

28 

’69EA* 

’ ’ ’ 85 '' 

82 

lA 


MOV 

PMADRL 7 DPL 

• 

7 

and save 

29 

09ED 

85 

83 

19 


MOV 

PMADRH7 DPH 



30 

C)9f6 

15 

IB 



DEC 

PMNUM 

; 

dec number of parameters 


0 QF2 

q3 




CLR 

C . 


-•’C-' = parameter available . 

. -P. ■4 . 

32 

09F3 

22 




RET 
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1 



. . 

XBLINAD build line address 


■f 




. *XBLINAD-«- is a. Jump to the routine -^BLI NAD#. It 

is used to 

4 




save bvtes so that routines may use a short Jump 
.instead .Qt_ a ions* Jump to the other routine. 

10 here 

6 . 

7 

9 

09F4 

02 04EA 

XBLINADs 

LUMP BLINAD 


10 

11 






12 

13 



; ; 

XSTAB - search table 


14 

15 



* 

#XSTAB# is a Jump to the routine #STAB#. It is 

jsed to 

16 

17 



• 

save bvtes so that routines may use a short Jump 
instead of a Ions Jump to the other routine. 

1 0 h e r e 

ly . 

19 

20 

09F7 

02 013A 

XSTAB: 

LUMP STAB . 



€ 


C C C C € 


C C C C C 

































3 
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. 1 . 

. . 

.eid.-. 

erase in display 


4 

5 



. 


eras ^.5. .t . .amount.,of . the 

screen specified bv Pn, 

6 



; 

ENTRY 

none 


.,,.7. 



; 




9 



; 

EXIT 

none 


10 



; 

USES 

all 


. U . 







12 







13 OAIA 

31 

D1 

.E.I.Ps . 

ACALL 

GNP 

? Get pararrieter 

14 OAIC 

70 

02 


JNZ 

EIDl 

; IF zero THEN 

.lS.C)Al.e... 

...SI. 

08 


AJMP 

EED 

• erase to eos and return 

16 







17 0A20 

14 


EIDls 

DEC 

A 


IS 0A21 

70 

02 


JNZ 

El 02 

; IF one THEN 

19 0A23 

20 

.. .6.1.. 

.1:1. 


.AUMP 

EBD 

...?_erase from beg inn ins ?< ret 

. 2l..QPi2^... 

...14.. 


K1D2:. 

DEC 

A 


22 0A26 

70 

02 


JNZ 

EIR 

; IF two THEN 

.23.C)A2.S... 

.. .6.x. 

.AC. 


.A JlIP 

CLRS 

? erase screen and return 

24 







.2S.aA2A... 

...22. 


.EJ.R.s . 

. R5:.T.... 




c 


c 


c 


c 


c 


c 


€ C 


C 


C 


c 







































1 


3 


3 1)3 


3 3 3 


3 3 
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1 




■ ■ 

EIL - 

erase 


o 




? 

? 

*EIL* 

erases 

the portion of the current line as specified . 

4 

Pi 




7 

bv Pn- 



6 

7 




; 

ENTRY 

none 


8 

9 




• 

y 

? 

EXIT 

none 


10 

11 




y 

? 

USES 

al 1 


12 

13 .... 

14 

15 

0A2B 

0A2D 

31 

70 

D1 

02 

EIL: 

ACALL 

JNZ 

GNP 

EILl 

? Get parameter 
; IF zero THEN 

16 

17 

0A2F 

61 

EO 


AJMP 

EOL 

; erase to eol and return 

18 

19 

0A31 

OA32 

14 

70 

02 

EILl: 

DEC 

JNZ 

A 

EIL2 

; IF one THEN . 

20 

21 

0A34 

61 

CB 


AJMP 

EBL 

; erase from besinnins ?< ret 

2*3 

0A36 

0A37 

14 

70 

FI 

EIL2S 

DEC 

JNZ 

A 

EIR 

; IF two THEN . 

24 

0A39 

61 

DB 


AJMP 

EEL 

* erase entire line and ret 
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.J 





" " 

. 

.ANSI .5<=;t graphic^i 


■f 





? 

#A?:nM-K- 



4 

CS* 






. . l-.H (r-. . >-.■. . f .'rr-l'r.'-.-i'. 1 1 . . Y I . . . 

graphics modes. 

P.'ir. .t h.^. t'.t t .i t'.'-i 5. .^n d. 

6 

.7. 





7 

.ENTRY 

. n o ri e 


8 - . 

10 





; 




.U. 





; 

.USES.... 

all 


12 . 

13 

14 

15 

0A3B 

31 

D1 


ASGM: 

ACALL 

GNP ; 

Get first parameter 

16 

17 

0A3D 

0A40 

75 

90 

FO 

.QA50 .. 

07 

ASGl: 

MOV 

MOV 

B, *#ASGMTL ; 

DPTR? #ASGMT ! 

(B) = table length 

18 

19 

20 

. zx. 

0A43 

0A45 

0A47 

ym?. .. 

31 

.. .40 .... 
51 

...31. 

F7 

.... .Q3.. 

4E 

....31. 


... A!5G0: 

ACALL 

.v'C. 

ACALL 

ACALL 

XSTAB ; 

. ASGO ! 

ASGO ; 

GNP ! 

. .\ v.r j /.s.tf.i:. .iTi.e.oe.. .t.ap. 1 e..... 

Search table 

.XP..f.o.gnql..THEN. 

call the routine 

22 

.23. 

0A4B 

.0A4C... 

50 

.. .22.... 

FO 



JNC 

.RET. 

ASGl ; 

. v-:v >.. V. .rTk'. a.mF.s vXi . 

IF done THEN return 

24 

■T-'S 

.C>A4£... 

.. .t:.4..... 



.... A3.QC'.:. 

.C.LR.. 

..A 


26 

0A4F 

73 




JMP 

@A+DPTR ; 

Jump to routine 


C € C € C C c € c € € 
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1 



. . 

ASGMT - ANSI set 

graphics mode table 


3 




ASGMT* contains 

the 

address of the routines which set the 

4 

5 



. 

re^iuested attribute 

or graphic mode. 


6 



■ 

Table entries are 

: 

The third character 

of the ANSi escape 

7 



? 

se«=iuence fol 1 owed 

bv 

the address of the 

routine which performs 

3 

9 




the 

re«=iuested function. 


10 

11 


0A50 

ASGMT 

EQU 

$ 




12 

13 

0A50 

00 


DB 

0 


; ESC 1 

0 m 

14 

15 

0A51 

0F26 


DW 

XATR 


; Ex i t 

ail attributes 

16 

0A53 

02 


DB 

2 


; ESC t 

2 m 

17 

0A54 

0F2A 


DW 

EHALF 


; Enter 

half intensity mode 

18 

19 

0A56 

04 


DB 

4 


; ESC 1 

4 m 

20 

21 

0A57 

0F2D 


DW 

EUNDL 


; Enter 

underline mode 


0A59 

05 


DB 

5 


? ESC C 

5 m 

23 

0A5A 

OF30 


DW 

EBLNK 


; Enter 

blink mode . 

24 

2:5 

0A5C 

07 


DB 

7 


; ESC i: 

7 m . 

26 

27 

0A5D 

0F33 


DW 

ERVM 


? Enter 

reverse video mode 

28 

0A5F 

OA 


DB 

10 


? ESC 1 

id m 

29 

0A60 

OF 39 


DW 

EGM 


• Enter 

graphics mode 

30 

31 

0A62 

OB 


DB 

11 


; ESC C 

11 m . 

3:2 

33 

0A63 

0F3C 


DW 

XGM 


; Exit 

graphics mode 

34 


0007 

ASGMTL 

EQU 

($~ASGMT>/3 

; Table 

i engt h 
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... ^SPF_- fiNSI set, protected Fiel ds 

.^.... S.f lects . the attri butes . uh.i.ch impl v pr p.tect i ppi,_ Mul t ipl e 

* attributes mav be selected in a single 5 e<=iuerice. This se<=iuerice 

. y ...'4'? ® .h P.tP.. ^.P ^ 11 r i b u t e s . o f.. t h e c h a r a c t e r- s d i s p 1 ay e d o n 

^ “ the screen or of the characters received. The 5eVueri«:e merelY. 

..?."r ri? ?.-*?. t h e ujay t h e c h a r a c t e r- s the specified attributes 

' are interpreted bv the different modes. 


10 


11 

12 

13 

14 

15 

16 
17 


ENTRYnone 
EX IT none 
USES all 


18 0A65 

19 

75 

FO 

00 

ASPFs 

MOV 

B, #0 


' initialise bvire 

20 0A68 

31 

D1 


ASPFl: 

ACALL 

GNP 


; bet next parameter 

21 0A6A 

40 

22 



JC 

ASPF2 


; Exit when done 

22 0A6C: 

B4 

00 

03 


CJNE 

A> #0, 

ASPFIA 


23 0A6F 

75 

FO 

00 


MOV 

B, #0 


" None protected 

24 6A72 

B4 

02 

02 

ASPFIA: 

CJNE 

A, #2, 

ASPFIB 


25 0A75 

D2 

F3 



SETB 

B.3 


• Half intensity 

26 0A77 

B4 

04 

02 

ASPFlB: 

CJNE 

A, #4, 

ASPFIC 


27 0A7A 

D2 

FI 



SETB 

B. 1 


" Under line 

28 0A7i:: 

B4 

05 

02 

ASPFIC: 

CJNE 

A, #5, 

ASPFID 


29 0A7F 

D2 

F2 



SETB 

B.2 


; Blink 

30 6A81 

B4 

07 

02 

ASPFlD: 

CJNE 

A, #7, 

ASPFIE 


31 0A84 

D2 

* * *1*1 Vi. 

FO 



SETB 

B.O 


• Reverse video 

32 0A86 

B4 

.FE 

03 

ASPFIE: 

.CJNE’ ■ 

A> #254 

^ ASPF’IF 


33 0A89 

75 

■ ■ '■■•ir'-i • • • • 

FO 

* * * * Vi A. 

SO 


MOV 

B, #10000000B 

; No attributes are protected 

OhoL- 

35 

.-S*/; * V'iA'rtCr' ■ * 

80 

DA 


■ ■ ASFFi'F':. 

S JmF ■ 

ASPFl 



■Jc' UHdt. 

:3S 

FO 

3F. 

ASPF2: 

MOV ■' ■ 

■f^rieLti', 

”B. 

; Final change 

37 0A91 

22 




RET 





c c c c c c 


c c c c c 
































3 3 


3 


3 3 3 


3 3 3 3 


3 


Z29R0M; 

Z-29 

MiCROBENCH 805i 
nriMPUTFR TERMir 

CROSS ASSEMBLER (VI)-218 
MAL FIRMWARE VERSION 1.03. 

24-FEB-S3 15 

:30:06 PAGE 93 


1 




CBA - 

convert bvte to ASCII 






*CBA# 

converts a bvte into its 

ASCII eguivalent. . 

4 

5 



; 




6 

7 




ENTRY 

(A) = fc'Vte to convert 


8 



; 

EXIT 

(B) = hundreds disit 


9 



■ 


(DPH) = tens digit 


10 

11 





(DPL) == ones digit 


12 

13 



7 

USES 

A, B, DPTR 


14 







15 

0A92 

75 

FO 64 CBA: 

MOV 

B, #100 


16 

0A95 

84 


DIV 

AB 


17 

0A96 

CO 

EO 

PUSH 

ACC 

■ Save hundreds amount 

IS 

0A9S 

E5 

FO 

MOV 

A, B 


19 

0A9A 

75 

FO OA 

MOV 

B> #10 


20 

0A9D 

84 


DIV 

AB 

• (A) = tens (B) ~ ones 

21 

0A9E 

24 

30 

ADD 

A, #-0- 

; Make tens digit ASCII 

22 

OAAO 

F5 

S3 

MOV 

DPH, A 

" Save it 

23 

0AA2 

E5 

FO 

MOV 

A, B 


24 

0AA4 

24 

30 

ADD 

A, #'0' 

• Ma ke ones digit ASC11 

25 

0AA6 

F5 

82 

MOV 

DPL, A 

7 Save it . 

26 

OAAS 

DO 

EO 

POP 

ACC 


27 

OAAA 

24 

30 

ADD 

A, #-0- 

; Make hundreds digit ASCII . 

28 

OAAC 

F5 

FO 

MOV 

B, A 

• Save it 

29 

OAAE 

22 


RET 
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ACPR, - ANS^I. cur sor posi t i on report 






; 

#ACPR* 

o u t F-» u 15 the c u r r e n t 

cursor- posi t ion in the ANSI f orrr» 

4 




7 

of ESC 

C PI ; Pc R Pl< 

?a5e note the tricky code to save a 





■ 

.fow bYt 

es of code. 


. 7 ; 

9 




] 

ENTRY 

none 


10 




; 

EXIT 

none 


11 




; 




iz 

13 





USES 

a1 1 


14 








15 OAAF 

31 

D1 


ACPRs 

ACALL 

GNP 

7 Get parameter 

16 OABl 

B4 

06 

35 


CJNE 

A, #6, APR 

; IF not 6 ti-iEN return 

17 0AB4 

74 

IB 



MOV 

A, #ESC 

IS 0AB6 

51 

CC 



ACALL 

ACP3 

7 Output an ESC 

.19 CABS 

74 

.5B. 



MOV 

A, #•••[;••• 

:^:‘U OABA 

51 

CC 



ACALL 

ACP3 

7 Output a 

. 21 OABC 

E5 

12 . 



MOV 

A, YPOS 

22 OABE 

04 




INC 

A 

? Bump to normalize 

.23 OABF 

. 51 

CF 



ACALL 

ACPI 

7 Cl u t p u t Y—p n c; i t i n 

24 OACl 

74 

3B 



MOV 

A, #•••;••• 


. 25 0AC3 

51 

CC 



ACALL 

ACP3 

; Output seperator 

26 OACS 

E5 

11 



MOV 

A 7 XPOS 


27 0Ai::7 

04 

CF 



INC 

A 

? Bump to normalize 

28 0AC8 

51 



ACALL 

ACPI 

7 Output X~Position 

29 OACA 

74 

52 



MOV 

A, #'R- 

30 

. 31 OACC 

32 

02 

022A 


ACP3: 

LUMP 

PCOF 

. ‘ Output -R-' and return 

33 OACF 

51 

92 


ACPI s 

ACALL 

CBA 

7 C 0 n Ve r t p o sitio n t o ASC11 

34 OADl 

AD 

82 



MOV 

TEMP, DPL 

7 Save 0 ne ■' s digit 

.3.5. .QAD3. 

E5 

S3 



MOV 

A, DPH 

7 Get ten’s digit 

36 OADS 

B4 

31 

00 


CJNE 

A7 #-l-7 ACPIA 

37 0AD8 

40 

02 


ACPIa: 

JC 

ACP2 

7 IF not zero THEN 

38 OADA 

51 

CC 



ACALL 

ACP3 

7 output ten’s digit 

39 OADC 

ED 



ACP2: 

MOV 

A, TEMP 

40 OADD 

80 

ED 



SJMP 

ACP3 

7 Output one’s digit and return 


cccccc cc ccc 
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1 




. . 

APRNT - 

ANSI print pase 


2 

Pi 




? 

" 

#APRNT-» 

prints the pase to the opposite port. . 

4 

5 ; ... 

6 

7 




" 

ENTRY 

none 


8 

9 




. 

EXIT 

none 


10 

11 




* 

USES 

al 1 


12 

13 

OADF 

11 

2A 

APRNT: 

ACALL 

SETDISP ; 

Set dispatch and return ... . 

14 

15 

OAEl 

11 

2F 


ACALL 

SETNORM ? 

Restore dispatch address . 

16 

17 

0AE3 

0AE6 

B4 

02 

37 03 

103C 


CJNE 

JMP 

A, #-7S APR ? 

R2_PRNT ? 

IF ESC # 7 THEN 

print pas>e . 

IS 

19 

0AE9 

22 


APR: 

RET 



20 

. 

22 

23 




, , 

ASBR - 

ANSI set baud rate 


24 

25 





-H-ASBR^ 

sets the baud rate to that 

specified bv Pn. . 

26 ‘ 

■27 ? . 

28 

29 




; 

ENTRY 

none 


30 

31 




; 

EXIT 

none 


32 

33 





USES 

al 1 


34 



ni 

ASPR: 

ACALL 

QHP ? 


36 

37 

.vti.9n... 

OAEC 

OAEE 

50 

04 

01 


JNC 

INC 

ASBRl ; 

A .5. 

IF no parameter THEN 

default to 1 . 

38 

.a?. 

40 

OAEF 
.QAF2... 
0AF4 

B4 

.. .50. 

Cl 

OE 00 

. f:5. 

4B 

ASBRl: 

.ASB.R2.! ... 

CJNE 

.UNO. 

AJMP 

A, #14. ASBR2 

APR .;. 

SBR ? 

.I.F. .i.n . . .(.Q,... 1.3X .T.HE.N. .. 

set baud rate and return 
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1 



. . 

ARAMP - 

ANSI reset al1 modes 

to 

power UP confis»uration 

3 



* 

RAMP - 

reset all modes to 

POW 

er 

UP configuration 

4 ; . 

5 ; 

6 

7 



1 

* ARAMP* arid *RAMP* resets 
on power up. 

a1 1 

flass etc. to the confisuration 

y ■ . 

9 ; 

10 

1 1 




ENTRY 

none 




12 

13 




EXIT 

r1 on t' 




14 

15 



‘ 

USES 

a1 1 




16 

17 

0AF6 

31 

D1 ARAMP: 

ACALL 

GNP 



7 Get any parameter 

1« 

19 

0AF8 

OAFA 

50 

02 

EF . 

1003 RAMP: 

JNC 

.JMP 

APR 

R2_IN2 



• iF no parameters THEN 

7 reset and return 


cccccc cc ccc 
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1 



.. 

WEOL - 





; 

*WEOL* 

«iets the flag which causes the terminal to perform . 

4 

Fi 




a carriase return and line feed immediat1v after the 80th 

character before a line is displayed- . 

6 

7 



7 



8 

9 



7 

ENTRY 

no ne 

10 

11 



7 

7 

EXIT 

none 

12 

13 



■ 

USES 

n o n e 

14 

15 

OAFD 

D2 2B 

WEOL: 

SETS 

AUTOWRAP ? Flag auto wrap . 

16 

1 7 

OAFF 



RET 


18 

19 . 

20 

"'1 



« « 

DEOL “ 





; 

^<-DEOL# 


24 




characters past column 79 are placed in column 79 until 

26 ‘ 

77 ; . . 

28 



7 

ENTRY 

none 

•-■Q 



- 



30 

■”!l 



; 

EXIT 

none 

32 



; 

USES 

none 

.34 


r“' T’Fi 

DEOL: 

CLR 

AUTQWR’AP .?. C:l.ear. aut o . wra.p. 

36 

.OB.OO... 
0B02 

.. .. 


RET 
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1 


■ • 

EAM -• 

enter ANSI mode 


4 


; 

^^•EAM# 

places the terminal in 

the ANSI mode for escape codes. 



; 




6 

7 


; 

ENTRY 

none 


W 

9 


1 

EXIT 

none 


10 

11 



USES 

none 


12 

13 

14 

15 

0B03 75 
0B06 22 

28 01 EAM: 

MOV 

RET 

MODE, #0000000IB 

; F‘‘lace in ANSI mode 

17 

19 


; ; 

E2M - 

enter ZE»S mode 


20 

21 



•«-EZM* 

takes the terminal out 

of AN£:I mode and into ZDs mode. 

. 23 






24 



ENTRY 

none 


26 

27 



EXIT 

none 


29 



USES 

none 


30 

31 

0B07 75 

28 02 E2M: 

MOV 

MODE, #0000001 OB 

? Take out of ANSI mode 

32 

OBOA 22 

RTl: 

RET 




cccccc cc ccc 






























3 

3 

3 

3 


3 3 

3 3 3 
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1 



. . 


E25L - 

enable 25th line 


2 

3 



? 

7 


#E25L* 

enables the display of the 

25th line only if it has 

4 

5 



a 

7 


not been previously enabled. The 
the time it is enabled. 

25th line is cleared at 

6 ; 

7 ; 

8 

9 



7 

7 


ENTRY 

none 


.10’ 

11 



7 

7 


EXIT 

none 


12 

13 



a 

7 


USES 

A, B, DPTR, TEMP, PTRl 


14 

15 

OBOB 

20 

15 FC E25L: 


JB 

L25EN, RTl ? 

IF enabled THEN return 

16 

17 

OBOE 

OB 10 

D2 

75 

15 

FO IS 


SETB 

MOV 

L25EI<I ; 

B, .#MAXLINE 

ELSE enable 25th line 

IS 

19 

OB 13 

61 

96 


AJMP 

CLRLINE ; 

Clear 25th line 

20 

21 . . 


23 





; ; 

D25L - 

disable 25th 

1 i ne 


24 

25 





7 

7 

*D25L* 

disables the 

display of the 

25th line and clears it. 

26 

27 





7 

V 

If the cursor is on 
home position. 

the 25th line 

then it is sent to the 

28 ; 

29 ? . . 

30 

31 





* 

ENTRY 

none 



32 

33 





. 

EXIT 

none 



34 

35 






USES 

A, B, DPTR, 

TEMP, PTRl 


36 

37 

OB 15 

C2 

15 


D25L: 

CLR 

L25EN 

. 

Disable 25th line 

38 

39 

0B17 
OBI A 

75 

71 

FO 

96 

18 


MOV 

ACALL 

B, #MAXLINE 
CLRLINE 

. 

Clear 25th line 

40 

41 

OBIC 

OB IE 

E5 

B4 

12 

18 

02 


MOV 

CJNE 

A, YPOS 

A, #MAXLINE, 

XR2_DISP 

IF cursor on 25th line THEN 

42 

43 

0B21 

91 

36 



ACALL 

SCH 


set cursor home 

44 

0B23 

02 

1042 


XR2_DISP: 

LUMP 

R2_DISP 

; 

Dis p1 ay any status 
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1 



. . 

EKC - 

enable kerb oar d click 

3 




*EK 

resets the flas» that disables keyboard rlirk and 

4 

5 




outputs the command to the kerboard. 

6 

7 




ENTRY 

none 

8 

9 



1 

EXIT 

none 

10 

11 



; 

USES 

al 1 

12 . 

13 

14 0B26 

15 0B28 

D2 

74 

33 

82 

EKC: 

SETB 

MOV 

ULKF ; Turn on key click 

A, #KBC_.EC 

16 6iB2'A 

17 

02 

026D 

XPCKB: 

JMP 

F’CKB ; Output command and return 

18 . 

19 

20 

21 



? ? 

NKC - 

n o k e y board c1ic k 

2*3 




^NKC# 

sets the flas that disables keyboard clicf:: and 

1*4 

25 



■ 

outputs the command to the kerboard. 

26 

27 



; 

ENTRY 

none 

28 

29 



! 

EXIT 

none 

30 

31 




USES 

al 1 


32 


33 


34 0B2D 

C2 

33 . 

NKC: 

CLR 

■ ■ OLkf. 

7 Turn off key click 

35 0B2F 

74 

S3 


MOV 

A, #KBC_.DC 


36 0631 

30 

F7 


SUMP 

XPCKB 

7 Output command and return 


cccccc cc ccc 
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1 


. . 

SBC - 

s€rt block cursor 



2 

3 



#SBC* 

programs the CRTC to 

display a block cursor. 


•••4 ; 

6 

7 



ENTRY 

none 



.g. 

9 



.eYif 

none 



10 

11 



USES 

■' A, 6 , DPTR 



. 12 

13 0B33 C2 

32 

SBC: 

CLR 

CRUL 

; Clear underline flag 


. 14 0B35 80 

15 

02. 


.S JrtP 

■ Sudi 

? Initialize cursor format 


. 16 .. 

17 

.l‘8’ ■' 

19 


? ? 

sue - 

set underscore cursor 


■ 20 

21 


. 

*suc* 

programs the CRTC to 

display an underline cursor. 


.- 21 ^... ? 

23 ? .-. 

24 

25 


• 

ENTRY 

none 



26 

27 


7 

? 

.Exir • 

none 



28 

29 


7 

USES 

■■ A, B, bPTR 



30 

31 0B37 D2 

32 

sue: 

SETB 

CRUL 

; Set underline flag 


32 

33 0B39 02 

lOlB 

SUCl: 

JMP 

R2-ICUR 

; Initialize cursor format 
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1 



. . 

EHSM “ 

enter hold screen mode 





‘ 

#EHSM# 

sets the hold screen mode flae. 


4 



• 




5 



; 




6 



; 

ENTRY 

none 


7 



; 




8 

9 



" 

EXIT 

none 


10 




USES 

none 


11 







12 







13 

0B3C D2 

36 

EHSM: 

SETB 

HSMODEF ; Enter mode 


14 

OB3E 75 

IE 

oi 

MOV 

HSLINE, #1 ; Set number 

of 1in e s 

15 

0B41 80 

02 


SJMP 

XHSMl ; Clear stop 

display and return 

16 







17 







18 







19 







20 



; ; 

XHSM - 

exit hold screen mode 


21 



; 




23 




*XHSM* 

clear hold screen mode flag. 


24 



; 




25 



; 

ENTRY 

none 


26 



; 




27 



; 

EXIT 

none 


29 



’ 

USES 

none 


30 







31 







32 

33 

6B43 C2 

36 

XHSM: 

CLR 

HSMODEF ; Exit mode 


34 

0B45 C2 

22 

XHSMl: 

CLR 

HSSTOPF .■ Cl ear ’ sfop‘ 

display flas 

35 

0B47 22 



RET 




ccc ccc c ccc c 
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1 




. . 

EKSM - enter keypad shifted mode 

2 

3 





«-EKSM* places the numeric keypad into the shifted mode. 

4 

5 




• 

? 


6 

7 




? 

• 

7 

ENTRY none 

8 

9 




m 

7 

EXIT none 

10 

11 




• 

1 

USES none 

12 

13 

0B48 

D2 

30 

EKSM: 

SETB KPADSHTF ? Set keypad shifted . 

14 

15 

0B4A 

22 



RET 

16 

17 ... 

18 

19 




, , 


20 

21 




• 

7 

m 

7 

•«-XKSM* t^.k€r.5. the. numeric keypad, out. .of . the .shifted. .m.Q^le,. 

22 

23 




7 


24 

25 




m 

7 

■ 

7 . 

ENTRY none 

26 

27 




• 

7 

7 

EXIT none 

28 

29 




7 

USES none 

30 

31 

0B4B 

Q2 

30 

XKSM: 

Qin KPAP^IHTF.;. C.U'M-. .keypad . ^.hjif .Ud. 

32 

6b4i:i 

22 



RET 
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1 




; ; 

EKAM - 

enter keypad alternate mode 

2 




" 

#EKAM* 

places the numeric keypad into the alternate mode. 

4 ; . 

6 

7 




? 

ENTRY 

none 

8 

9 




. 

EXIT 

none 

10 

11 





USES 

none 

12 

13 

0B4E 

D2 

31 

EKAM: 

SETB 

KPADALTF ; Se t ke y pa d alternate 

14 

15 

0B50 

22 



RET 


16 . 

17 

18 

19 




. . 

XKAM - 

exit keypad alternate mode 

20 

21 





#XKAM* 

takes the numeric keypad out of the alternate mode. 

22 







.23. 




7 



24 

25 




" 

? 

ENTRY 

none 

26 

27 




a 

7 

7 

EXIT 

none 

23 

29 




7 

USES 

none 

30 

31 

0B51 

C2 

31 

XKAM: 

CLR 

KPADALTF ; Clear keypad alternate 

32 

0B53 

22 



RET 



C C C C C C c c c c c 
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1 




;! 

EICM - 

enter insert character mode . 

I"! 




? 

•fi-EICM^t- 

places terminal into insert character mode- . 

'4 

5 







6 

7 




; 

ENTRY 

none 

9 




; 

EX'lt 

n 0 n e 

10 

11 





USES 

al 1. 

12 

13 

0B54 

D2 

21 

EICM: 

SETB 

ICMODEF ; Set insert mode flas 

14 

15 

0B56 

61 

23 


AJMP 

XR2_biSP ? bisplav anv change in status 


16 

17 


1 o 

19 



;; 

XICM - 

exit insert character mode . 

20 

21 



• 

7 

#XICM^^ 

takes terminal out of the insert character mode, _ 

22 ’ 

24 



; 

ENTRY 

none 




; 



26 



; 

EXIT 

none 

27 



; 



28 



; 

USES 

al 1 

29 






30 

31 0B58 

C2 

21 

XI cm: 

CLR 

ICMODEF ; Clear insert mode flag . 

32 0B5A 

61 



AJMF- 

XR2_bISP ? bisp*1 av anv change in status 
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.?;.?. ?. EC.. .e n a b 1 f.u r- s o .r 

.■;"*.. -y-EC^- enables the display of the cursor. 

4 ! . 



10 .y... 

11 

■12 . 

13 0B5C D2 lA EC: 

14 0B5E ■ ■22.. 

15 

.16. 

17 

.18. 

19 

.26.V ■ 

21 ; 


entry' ’none. 

EXIT none 

USES none 

. J.®.. f. 7^.*^ ] ^.Y. S'f. .'-.Vr.?pr 


pc - disab 1e c u r s o r 

#pc*.. di sab 1 es..the dis p 1 av of the cursor 


24 

26 

27 


■:$0. 

31 0B5F 

32 0661 


lA 



ENTRY none 
EXIT none 
USES none 

CLR ENBLCLIR 
RET. 


Disable display of cursor 


C C C C C C c c c c c 





























3 

3 3 


3 

3 3 

3 3 

3 

Z29R0M? MICROBENCH 8051 CROSS ASSEMBLER (Vl)~218 
Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 

24- 

FEB-83 15:30:06 PAGE 107 



1 


. . 


EACR - enable auto carriage 

return 


2 

3 




•K-EACR* enables the terminal 

to perform an automatic carriage 


4 

5 


m 

7 

? 


return upon receipt of a line feed character. 


6 

7 


m 

7 

m 

7 


ENTRY none 



8 

9 


m 

7 

7 


EXIT none 



10 

11 


7 

m 


USES none 



12 

13 . 

14 0B62 

15 0B64 

D2 2C 

22 . 

EACR: 


SETB AUTOCR 

RET 

• Enter auto CR mode 



16 

XJ 

18 


20 

21 



XACR - 

exit auto carriage return 

22 


7 

#XACR« 

clears the auto carriage return flag. 

23 





24 


7 



25 


• 

PNTRY 

ni?n^ . 

26 


m 



27 


7 . 

EXIT 

none , .. . 

28 


; 



29 


7 

.USES.... 

none . 

30 





31 





32 OB65 

C2 

2C XACR: 

CLR 

AUTOCR ; Exit auto CR mode 

.3.3..08.6 7... 

... 22 .... 


.R^T. 
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1 


. .r.e line feed 

2 

3 


.*EAUF* eng.bl^’S the t€:rrrfin^l tp perf^rrc* ?k'jt‘""T'?itIc 

4 

. 

7 

line feed upon receipt of a carriage return. 

6 

7 


. . . ENTRY none 

S 

9 

7 

. 7 

EXIT none 

10 

11 

• 

7 

.USES none 


12 

13 


14 0B68 

D2 

2D 

EALF: 

SETB 

AIJTOLF 

; Enter auto LF mode 

15 0B6A 

22 



RET 



16 .. 


17 

IS 

19 


20 

21 



7 

7 

XALF - 

exit auto line feed mode 

22 



; 

*XALF* 

clears the auto line feed mode flag. 

23 






24 



; 



25 



; 

ENTRY 

none 

26 



; 



27 



; 

EXIT 

none 

28 



; 



29 



; 

USES 

none 

30 






31 






32 0B6B 

C:2 

2D 

XALF: 

CLR 

AUtOLF ; Exit auto LF mode 

33 0B6D 

22 



RET 



c c c c c c c c c c c 






































3 

3 

3 


3 


3 3 3 3 3 
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1 



? 7 


EGATM - 

enter guarded area transfer mode 

2 

3 





#EGATM* 

places the terminal in a mode such that all data 

4 

5 





is to be 

transmitted in a data stream such as transmit page. 

6 

7 





ENTRY 

none 

8 

9 





EXIT 

none 

10 

11 





USES 

none 

12 

13 . . 

14 6B6E 

15 0B70 

C2 

22 

25 

EGATM: 


CLR 

RET 

GATM ? Clear guarded area transfer 

16 

17 . 

18 

19 . 

20 

21 





XGATM - 

exit guarded area transfer mode 

22 

23 



• 

7 


•«-XGATM» places the terminal in a mode such that onlv 
unprotected data is to be transmitted in a data stream 

24 

25 



; 


such as 

transmit page. 

26 

27 





ENTRY 

none . 

28 

29 



7 


EXIT 

none . 

30 

31 



T 


USES 

none . . . 

32 

33 . 

34 0B71 

35 0B73 

D2 

22 

25 

XGATM: 


SETB 

RET 

GATM ; Set guarded area transfer 
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1 



EERM - 

enter erasure mode 

2 


• 

7 



3 



#EERM* 

.places the terminal in a mode such that all data is 

4 



erased 

in functions such as erase screen. 

5 


; 



6 


; 



7 


; 

ENTRY 

none 

8 

9 



EXIT 

none 

io 




‘ 

11 


; 

USES 

none 

12 





13 





14 0B74 

C2 IB 

EERM: 

CLR 

ERM ; Clear erasure mode 

15 0B76 

1 

22 


RET 



17 


It: 

19 


20 

21 



7 

XERM - exit erasure mode 


22 



7 

^•ZERM# places the terminal 

in a mode such that only 

23 



7 

unprotected data is erased 

in functions such as erase 

24 



7 

screen. 


25 



7 



26 



7 



27 



7 

ENTRY none 


28 



? 



29 



7 

EXIT none 


30 



7 



31 



7 

USES none 


32 






33 






34 bB77 

D2 

IB 

XERM: 

SfetB EF^M . 

; Set erasure mode 

35 0B79 

22 



RET 



c c c c c c c c c c c 

































333 333 33333 


■Z29R0M; MICROBENCH 8051 CROSS ASSEMBLER (Vl)~218 24~FEB--83 15:30:06 PAGE 111 

Z-29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 .. 


1 




;; 

PCLK - 

program clock 


2 

3 




- 

*PCLH:> 

sets the internal clock. 


4 ; 

5 ? 

6 




? 

ENTRY 

none 


7 




• 




8 




? 

EXIT 

none 


9 




T 




10 




? 

USES 

A7 DPTR 


11 








12 








13 0B7A 

31 

D1 


PCLK: 

ACALL 

GNP 

; Get hour parameter 

14 0B7C 

B4 

IS 

00 


CJNE 

A, #24, PCLIA 


15 0B7F 

50 

14 


PCLIA: 

JNC 

PCL2 

; IF bad parameter THEN exit 

16 0B81 

F5 

3D 



MOV 

THOUR 7 A 


17 0BS3 

31 

D1 



ACALL 

GNP 

; Get minutes parameter 

18 0B85 

B4 

3C 

00 


CJNE 

A, #60, PCLIB 


19 0B88 

50 

OB 


PCLIB: 

JNC 

PCL2 

; IF bad parameter THEN exit 

20 OBSA 

F5 

3C 



MOV 

TMIN, A 


21 0B8C 

31 

D1 . 



ACALL 

GNP 

" Get seconds parameter 

22 0B8E 

B4 

3C 

00 


CJNE 

A, #60, PCLIC 


23 0B91 

50 

02 


PCLIC: 

JNC 

PC:L2 

; IF bad parameter THEN exit 

24 0B93 

F5 

3B 



MOV 

TSEC, A 


25 0B95 

22 



PCL2: 

RET 
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1 

. . 

CLRLINE - clear line completely 


3 


.:-«-C:LRLINE* writes spaces into the entire 

line indicated and 

4 

5 


ignores any setting of protected fie1ds 


6 

7 

? 

ENTRY (B) = line number to erase 


3 

9 

? 

EXIT none 


10 

11 

• 

USES A, B, DPTR, TEMP, PTRl, WCiRK2, 

INDX2 


12 

13 


14 0B96 

15 0B98 

CO 

75 

3F 

3F 

00 

CLRLINE: 

PUSH 

MOV 

PFIELD 

PFIELD, #0 

; Save protected fields 
; Make everything unprotected 

16 0B9B 

71 

AO 



ACALL 

CLRL 

; Clear line 

17 0B9D 

DO 

3F 



POP 

PFIELD 

; Restore protected fields 

18 0B9F 

22 




RET 



19 








20 








21 








22 

23 




? ? 

CLRL - 

c1 ear 1ine 


24 




7 




25 




? 

#CLRL# 

writes spaces into 

the entire 1ine indicated. 

26 




m 

7 




27 




7 




28 




7 

ENTRY 

(B) = line number 

to erase 

29 




7 




30 




7 

EXIT 

none 


31 




7 




32 




7 

USES 

A, B, DPTR, TEMP, 

PTRl, W0RK2, INDX2 

33 








34 








35 OBAO 

E4 



CLRLs 

CLR 

A 


36 OBAl 

12 

■6503 ■ 



LCALL 

CLA 

? Calculate address 

37 0BA4 

74 

50 



MOV 

A, #NUMCHARS 

; 80 characters 

. 06 A 6 ■ 

■‘75. 

.F‘C). 

00 


MOV 

B, #0 

■ No attributes 

39 0BA9 

02 

lOOC 



LUMP 

R2_FILL 

? Fill with spaces and return 


ccc ccc ccccc 
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1 





. . 

CLRS “ 

clear screen 



2 

3 





« 

•s-CLRS* 

clears entire display 

except the 25th line. IF cursor 

4 





■ 

• 

i s 0 n 

the 25th line then Just 

the 

25th line is cleared- 

6 










7 





? 

ENTRY 

none 



!“! 

9 





■ 

? 

EXIT 

none 



10 





7 





11 





? 

USES 

al 1 



12 










13 










14 

OBAC 

E5 

12 


CLRS: 

MOV 

A, YPOS 



15 

OBAE 

B4 

18 

04 


CJNE 

A, #MAXLINE, CSl 

7 

IF ypos = 25th line THEN 

16 

OBBl 

■ ■ ■ P'S. 

FO 



MOV 

B. A 

; 

setup for subroutine 

17 

0BB3 

80 

EB 



SJMP 

CLRL 

; 

clear line and return 

18 










19 

0BB5 

7C 

18 


CSl: 

MOV 

WORK, #NUMLINES~1 

; 

Get number of lines 

20 

21 

0BB7 

7A 

00 



MOV 

INDXl, #0 


Index for -LORDER- 

22 

0BB9 

8 A 

FO 


CS2: 

MOV 

B, INDXl 

; 

REPEAT setup for cal 1 

23 

OBBB 

71 

AO 



ACALL 

CLRL 

; 

to clear a line 

24 

OBBD 

OA 




INC 

INDXl 

; 

bump indxl 


OBBE 

DC 

F9 



DJNZ 

WORK, CS2 

; 

UNTIL work = 0 

26 










27 

OBCO 

81 

36 



AJMP 

SCH 

; 

Set cursor home and return 

28 










29 










30 










31 










32 





•; 

CLFO - 

clear foresround 



33 





7 





34 

35 





7 

7 

*CLFO# 

clears entire display 

except for half intensity spaces. 

36 





? 





37 





7 

ENTRY 

none 



38 





7 





39 






EXIT 

none 



40 










41 






USES 

al 1 



42 










43 










44 

0BC2 

75 

3F 

08 

CLFO: 

MOV 

PFIELD, #00001000B 

7 

Make half intensity protected 

45 

0BC;5 

71 

AC 



ACALL 

CLRS 

m 

7 

Clear screen 

46 

0BC:7 

75 

3F 

00 


MOV 

PFIELD, #0 

7 

Make nothing protected 

47 

OBCA 

22 




RET 
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1 





. , 

.EBL. .T. 

erase from beginnins of line 

2 

. 3 . 






#EBE* 

erases from the besinnins of the current line to the 

4 

.5. 






c u r 5 0 r 

. Cursor position does not change. 

6 

. 7 . 





. 7 . 

.ENTRY. 

...np.n^. . 

8 

.R 





? 

.E.XI.T 

none 

10 

.U. 





, 

USES 

A, B, DPTR, TEMP, PTRl, W0RK2, INDX2 

12 

. 13 . 

14 

. 15 . 

OBCB 

.Q.bcq... 

E4 

85 

12 

FO 

EBL: 

CLR 

MOV 

A 

B, YPOS 

16 

. 17 . 

OBCF 
P.BP2... 

12 

.. .E.5.. 

0503 
.11 . 



LCALL 

MOV 

CLA ; Calc address for <0,YP0S) 

A, XPOS ; Get number of characters 

18 

. 19. 

0BD4 
QBC5... 

04 

... 7.5 . 

.FO..... 

... .QQ.. 


INC 

MOV 

A 5 to erase 

B, #0 ; Clear attributes 

20 

. 2 . 1 . 

0BD8 

02 

lOOC 



LUMP 

R2_FILL ; Clear and return 

22 

. 23 . 

24 

25 





. . 

EEL - 

erase entire 1ine 

26 

..27 





? 

*EEL* 

clears the entire line where the cursor resides. 

28 

29 





t 

7 

Cursor 

position does not change. 

30 

.3.1. 





7 

• 

7 

ENTRY 

none 

32 

..33 





7 

7 

EXIT 

none 

34 

. 35 . 





7 

7 

USES 

A, B, DPTR, TEMP, PTRl, W0RK2, INDX2 

36 

37 

38 

39 

OBDB 

OBOE 

85 

80 

12 

CO 

FO 

EEL: 

MOV 

SJMP 

B, YPOS ; Get current position 

CLRL • Clear line and return 


c c c c c c c c c c c 














































33 333 3333 


Z29RCiMV ' HiCROBENCH' 'sosi* CROSS ASSEMBLER ’(Vi V-ifi8 ’ ‘ ii-FEB-SS’ ISVSC): 06 PAGE ’ 1 is 
»*# Z-29 COMPUTER TERMINAL. f;IRMWARE. VERSION. .1.03 .*** .. 


1 





" ? 

EOL - erase to end of line 


2 





? 



3 





7 

*EOL* erases from the cursor to 

the end of the current line. 

4 

5 






Cursor position does not chanse. 


6 





; 



7 





; 

ENTRY none 


8 

9 






EXIT none 


10 





? 



11 





7 

USES A, B, DPTR, TEMP, PTRl, 

W0RK2, INDX2 

12 








13 








14 

OBEO 

75 

FO 

00 

EOL: 

MOV B, #0 

? Clear attributes 

15 








16 

0BE3 

74 

50 


EOLi: 

MOV A, #NUMCHARS 

; Calculate number to erase 

17 

0BE5 

C3 




CLR C 


IS 

0BE6 

95 

11 



SLIBB A, XPOS 


19 

0BE8 

85 

14 

82 


MOV DPL, LINADL 

" Get line address 

20 

OBEB 

85 

13 

83 


MOV DPH, LINADH 


21 

OBE^ 

02 

lOQC 



LUMP R2-.FILL 

; Erase to end and return 

22 








23 








24 








25 








26 





7 7 

EBD -- erase from besinnins of display 

27 





; 



28 





; 

*EBD-»- clears the screen from ■HOME"' position to the current 

29 





; 

cursor position. The exception 

is the 25th line. Cursor 

30 





; 

position does not change. 


.3.1., 





; 



32 





; 



.3.3. 






^NTRY none . 


34 








.3.5 





7 . 

..FX IT.. 


.36 








37 





; 

USES A, B, DPTR, TEMP, PTRl, 

INDXl, W0RK2, INDX2 

38 








39 








40 

OBFl 

E5 

12 


EBD: 

MOV A, YPOS 


41 

QBF.3. 

.. .a4 . 

.1.3. 

...02.... 


QONE a, #MAXLINE, EBl 

; IF 25th line THEN 

42 

bBF6 

80 

D3 



SJMP EBL 

; erase Just this line 

43 








44 

0BF8 

7A 

00 


EBl: 

MOV INDXl, #0 

; Start at top 

45 

. .QBF.A. 

. ..e;5. 

.1.2. 


.EB.2.5. 

MOV A, YPOS 

; REPEAT . . . 

46 

OBFC’ 

B5 

02 

02 


CJNE A, INDXlA, EB3 

; IF index = current THEN 

47 

OBFF 

. .30. 

CA 



.SO.MP..EBL. 

• erase up to cursor 

48 








49 

.O.CQ.l 

.. .8A.... 

FO 


EB3: . 

MOV B, INDXl . 

; ELSE set UP and . 

50 

0C03 

71 

AO 



ACALL CLRL 

• clear entire line 

51 

0C05 

OA 




INC INDXl 

; bump index counter 

52 

0C06 

80 

F2 



SJMP EB2 

; UNTIL forever 
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1 




; ? 

EED - 

erase to end of display 


f' 




* 

*EED-«- 

clears the screen from the 

current cursor position to 

4 




; 

the erid of the screen. Our son po 

s i t i 0 n d e s not c h a n ?? e . 

6 

7 




. 

ENTRY 

none 


9 





EXIT 

none 


10 

11 




. 

USES 

A, B, DPTR, TEMP, PTRl, INDXl, W0RK2, INDX2 

12 . 

13 

14 

15 

000:3 

OCOA 

71 

AA 

EO 

12 

EED: 

AOALL 

MOV 

EOL ; 

INDXl, YPOS ; 

01 ear to end of line 

Set loop counter 

16 

17 

0000 

OCOD 

OA 

BA 

18 

EIEls 

00 

I NO 
GONE 

INDXl ; 

INDXl, #MAXLINE, EEIA 

REPEAT bump to next line 

It: 

19 

OL: 1U 
0012 

50 

SA 

06 

FO 

EE 1A! 

UNO. 

MOV 

EER ; 

B, INDXl ; 

IF end of disp THEN exit 
get line to clear 

20 

21 

0014 

0016 

71 

80 

AO 

F4 


AOALL 

SUMP 

OLRL ; 

EEl ; 

clear line 

UNTIL forever 

22 

0018 

22 


EER: 

RET 



24 . 

25 

26 

27 




. . 

HEED - 

Hazel tine erase to end of 

display (with background) 

2:3 

29 




, : 

#HEED* 

clears the screen from the 

current cursor position 

30 

31 





to the 

c u r s o r 

end of the screen with half intensity spaces. The 
position does not chansie. 


33 


34 

35 





] 

ENTRY 

none 



36 

37 





; 

Exit 

none 



38 

39 






USES 

A, B, DPTR, TEMP, PTRl, 

INDXl, W0RK2, INDX2 

40 










41 

0019 

75 

FO 

08 

HEEDS 

MOV 

B, #00001000B 

; 

Get half intensitv 

42 

43 

OCiC ■ 

■7T ■ ■ 

E3 



agalL 

EOLl 


Clear to end of line 

44 

45 

.'46 

47 

OolH 

0020 

■0C21- 

0024 

AA 

OA 

•• BA'■■■ 
50 

12 


HEEl: 

MOV 

I NO 

INlDXi, YPdS 

INDXl 

. 

Set loop counter 

REPEAT bump to next line 

.IS. 

F2 

00 

HEEIA: 

CJNE 

JNG 

iND)(i, ttMAXLiNE, HEEIA 
EER 

• 

IF end of disp THEN exit 

48 

■0C26 ‘ ■ 

■ "£4 " " 




CLR 

A 



49 

0027 

:3A 

FO 



MOV 

B, INDXl 

; 

get line to clear 

50 

51 

■ CiC29 
0020 

12 

74 

0503 

50 



LGALL 

MOV 

OLA 

A, #NUMGHARS 

. 

calculate line address 
complete line 

52 

53 

0C2E' 
0031 

75 

12 

FO 

1000 

08 


MOV 

LCALL 

B, #000010008 

R2_FILL 


get half intensity 
fill with spaces 

54 

0034 ■■ ■ 

80 

EA 



SJMP 

HEEl 

' 

UNTIL forever 


C C C C C C c c c c c 
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1 



. . 

SCH - 

set cursor home 


2 

3 



■ 

#SCH» 

Places the cursor at line 

zero, column zero. 

4 

5 



7 

• 

7 




6 




ENTRY 

none 


7 



■ 

7 




.S. 



7 

.pkir' 

none 


9 



7 




10 




.uses ■ 

A, DPTR, PtRi 


11 







.12 







13 0C36 

E4 


SCH: 

CLR 

A 


.14- 'ocisy ■ ■ ■ 

■ ■ ’PS’. 

11 


MOV 

XPOS, A 

? Zero X-Position 

15 0C39 

F5 

12 


MOV 

YPOS, A 

; Zero Y-Position 

.1'6' 'ftC'^Er ■ ■ 

■•‘21. 

• P4. 


.. AJrtP 

xbLinad 

? IJpdata address and return 

17 







. IS 







19 







20 







21 



? 7 

PBS ~ 

perform back space 


.22 ■' 



7 




23 



m 

7 

CLFT ~ 

cursor left 


24 



7 




25 



7 

■«-PBS* 

- *CLFT* steps the cursor 

one position to the left, but 

26 




does not wrap around to the previous line after reaching 

27 



7 

column 

zero. 


28 







29 




ENTRY 

none 


30 



m 

7 




31 



7 

EXIT 

none 


32 



7 




33 



7 

USES 

A, DPTR, PTRI 


34 







35 







36 

0C3D 


PBS 

, EQU 

i 


37 

0C3D 


CLFT 

EQLI 

$ 


38 0C3D 

E5 

11 


MOV 

A, XPOS 

; Get X~position 

39 0C3F 

70 

01 


JNZ 

PBSl 

; IF -XPOS- is zero THEN 

40 0C:41 

22 



RET 


; return 

41 







42 0C42 

15 

11 

PBSl: 

DEC 

XPOS 

; ELSE decrement -XPOS- 

43 0C44 

21 

F4 


AJMP 

XBLINAD 

? build address and return 
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1 




. . 

ACLFT -- 

ANSI c u r s 0 r left 

3 




! 

^^•ACLFT# 

moves the cursor towards the beginning of a line 

4 




* 

the spe 

cified Pn number of times. 

6 

7 




? 

ENTRY 

none 

8 

9 




; 

EXIT 

none 

10 

11 





USES 

A, DPTR, INDXl, PTRl 

12 .. 

13 

14 0C46 

15 0C48 

31 

70 

D1 

01 


ACLFT2 

ACALL 

JNZ 

UNP ; Get parameter 

ACLO ; IF no parameters or 0 THEN 

16 bC4A 

17 

04 




INC 

A ; bump to i 

IS 0C4B 

19 0C4C 

FA 

91 

3D 


ACLO: 

ACL: 

MOV 

ACALL 

INDX17 A ‘Set u p in d ex 

CLFT ? REPEAT move cursor left one 

20 0C4E 

21 0C50 

DA 

22 

FC 



DJNZ 

RET 

INbXl, ACL ? until count == 0 . 

23 

25 

26 

27 




7 

HCLFT - 

Hazel tine cursor left 

28 

29 




■ 

7 

7 

■)^HCLFT-«- 
a r 0 u n d 

steps the cursor one position to the left and wraps 
to the previous line after reaching column zero. 

30 

31 




7 



32 

33 




7 

ENTRY 

none 

34 

35 




7 

.EXIT. 

hone 

36 

37 




7 

USES. 

AVDPTftVPtft'lTTEMP. 

38 

39 0C51 

40 0i::S3 ' 

41 0C55 

E5 

11 


HCLFT: 

MOV 

A 7 XPOS ; Get X-position 

70 

AD 

£8 

12 



JNZ 

MOV 

CLEt ; If not zero THEN use ^cLFT* 

TEMP? YPOS ? Save Y-position 

42 ot:S7 

43 0C59 

91 
E5 
• • BS' 

8D 

12 



ACALL 

MOV 

CUP ; Move cursor up 

A? YPOS 

44 OL-5B 

45 0C5E 

05 

01 


cjne. 

RET 

A? TEMPA? HlLFVi ; IF ypos did not change THEN 

7 do nothing 

46 

47 0C5F 

75 

11 

4F 

HCLFTl: 

MOV 

XPOS? #MAXCHAR ; ELSE move to end of line 

48 OC62 

21 

F4 



AJMR 

XBLiNAti ; update and return 


c c c 


c c c c c c c c 
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1 





. . 

CRT - 

curs o r ris h t 

2 

3 





7 

*CRT* 

moves the cursor risht one column. If the cursor is in 

4 

5 





i 

the last column then the cursor will not be advanced. 

6 

7 






ENTRY 

none 

8 

9 






EXIT 

none 

10 

11 






USES 

A, DPTR 

12 

13 

14 

15 

0C64 

0 C66 

E5 

B4 

11 

4F 

01 

CRT: 

MOV 

CJNE 

A. XPOS ? Get X~position 

A, ttMAXCHAR, CRTl ? IF end of line THEN 

16 

17 

0C69 

22 




RET 

; return 

18 

19 

0C6A 

0C6C 

05 

21 

11 

F4 


CRTl: 

INC 

AJMP 

XPOS ; ELSE bump position 

XBLINAD ; update and return 

20 

21 . 

22 

23 

24 

25 





7 7 

ACRT “ 

ANSI cursor risiht 

26 

27 





7 

*ACRT* moves the cursor towards the end of the 1ine 

the specified Pn number of times. .. . 

28 ; 

29 ; . 

30 

31 





. 

ENTRY 

none 

32 

..3;? 





* 

EXIT 

none 

34 






USES 

A, DPTR, INDXl 

36 

37 

0C6E 

31 

D1 


ACRT: 

AC^LU 

PNP. . ‘ Pet Pctir^meter . 

39 

0C70 

0C72 

O . 

01 



JNZ 

ACRl * IF no parameter or 0 THEN 

..Pi . ; .b.UiTi.R. .to.. J. 

40 

41 

0C73 




ACRl: . 

. 

MQV 

INDXl, A ; pet UP inde;K .. 

42 

43 

0C74 

0C76 

91 

DA 

64 

FC 


ACR: 

ACALL 

DJNZ 

CRT “ REPEAT cursor right one 

INDXl, ACR . 5 UNTIL count = Q . 

44 

0C78 

22 




RET 
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. X 

■y 





. 

.H.CP.T..- 

€• .1. t .i. h i&.. .Q g r.5 .o.r. 

.eight.. 






. 


. .the jigr^pr- 

right one columriji If the cursor is 

4 

.5. 






in the 
.th«. .Oft: 

last column then 
■ict.. .l.in.^». 

the cursor moves to the beginning of 

.7. 









8 

. 






ENTRY 

none 


10 

. XX. 





, 

EXIT 

none 


12 

.13. 





* 

USES 

A, DPTR, PTRl 


14 

.1^ 


.. .E5 .... 

.11. 


....H.CPT: 

MOV 

A, XPOS 

? Get X—F*os>ition 

16 

.17. 

IS 

. X9.. 

0C7B 
.0Q7.^... 
0C80 
PCS2... 

B4 

91 

... E5..... 

4F 

.12..... 

A8 

.12.... 

E6 


CJNE 

MQV 

ACALL 

.MQV.. 

A, #MAXCHAR, CRT 

...TBMBk.Y.PQS. 

CDN 

.. A.».. .YP.QS. 

; IF not eol THEN use *CRT# 

.;.. .S^.ye. .Y.-:p.c!S.lt.i.on. 

7 Move cursor down 

20 

. ZX. 

22 

0C84 
.QC.87..., 

B5 

, . . .... 

05 

01 


CJNE 

.RE.T. 

A, TEMPA, HCRTl 

7 IF xpos did not change THEN 
.;.do. .n.Q thing. 

23 

24 

.QCS8... 
0C8B 

... 75..... 
21 

.11. 

F4 

....PO. 

....HCRT.1.!. 

.MOV.. 

AJMP 

...XPQ.S7..#.Q. 

XBLINAD 

.;.. Et.SE.. m.Q v.^. .t 0 .. b fig 1 n Ri ag.. 

7 update and return 


cccccc c cccc 
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1 



. . 

CUP - 

cursor up 



2 

3 



. 

#CUP# 

moves the 

cursor up •: 

:ine line on the display. The 

4 

5 




cursor 

never 

mav move 

past 1ine 

out of but 

zero. 

not into fixed regions and 

6 ; 

7 ; . 

8 

9 



m 

f 

ENTRY 

none 



10 

11 



m 

7 

7 

EXIT 

none 



12 

13 



7 

USES 

A, DPTR, 

PTRl 


14 

15 

0C8D 

E5 

12 CUPS 

MOV 

A, YPOS 


7 Get Y-Position 

16 

17 

0C8F 

0C91 

60 

B5 

03 

17 01 

JZ 

CJNE 

CUPl 

A, TSCROLL, CUPlA 

7 IF top of screen THEN return 

7 IF top of scroll region THEN 

18 

19 

0C94 

22 

CUPl; 

RET 



7 return 

20 

21 

0C95 

0C98 

B4 

22 

18 01 CLIPIAS 

CJNE 
...RET. 

A, #MAXLINE, CUPIB 

! IF 25th line THEN 

. ? . retMCn . 

22 

. i.3. 

24 

25 

.QC^9. .. 
0C9B 

....15. 

21 

.12.CUPIBS.... 

F4 

. R^P.... 

AJMP 

... y.pp.s. 

XBLINAD 


.? . .fuse; . c. . p.o ?.i t.i o.n . 

7 update and return 

26 

27 . 

28 

29 



. . 

Acgp - 

ANSI cursor up 


30 

31 




*ACUP^<- 

moves the 

cursor, toward, the top of th« . di.sp.la.x . 

32 

33 



7 

the specified Pn 

number of 

times. 

34 

35 



7 

ENTRY.. 

... n.Q n.^ . 



36 

37 



7 

PX.I.T... 

... n.on.^ . 



38 

39 



7 

. USES... 

.. .A». . DPTR... 

. INDXl.,..PXBl . 

40 

41 . 

42 

43 

0C9D 

0C9F 

31 

7Q .. 

D1 ACUP: 

Q1 . 

ACALL 

JNZ 

GNP 

Acgi 


7 Get parameter 

.;.. .IF. . n.o . .pa.na.rnff.te.r . .or. .0. .THFN. 

44 

45 

OCAl 

04 


INC 

A 


7 bump to 1 

46 

47 

0CA2 

0CA3 

FA 

91 

ACUl: 

8 D ACU:. 

MOV 

ACALL 

INDXl, A 
CUP 


7 Set UP index 

7 REPEAT cursor up o p^ line . 

48 

..49. 

OCA 5 
.OCAZ... 

DA 

...22 . 

FC 

DJNZ 

..RE.T. 

INDXl, ACU 

; UNTIL count = 0 
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.1..CJDN 7 cursor down 

2 ; 

.3.;.fCDN* moves the cursor down one line on the displ av... The 


4 ; cursor may move out of but not into fixed res ions and 


5 





; 

never 

past line 24. 


6 ; 

7 ; 

8 

9 





. 

ENTRY 

none 


10 

11 





7 

EXIT 

none 


12 

13 





" 

USES 

A, DPTR, PTRl 


14 

15 

0CA8 

E5 

12 


CDN: 

MOV 

A, YPOS ? 

Get Y~position 

16 

17 

OCAA 

OCAD 

B4 

22 

18 

01 


CJNE 

RET 

A, #I^AXLiNE, CDNi ? 

IF 25'th line THEN return 

18 

19 

OCAE 

B4 

17 

01 

CDNl: 

CJNE 

A, #MAXLINE-1, CDN2 ? 

IF 24th line THEN return 

20 

21 

OCBl 

22 




RET 



22 

23 

0CB2 

0CB3 

04 

B5 

18 

01 

CDN2: 

INC 

CJNE 

A ; 

A, BFIX, CDN3 ? 

Bump value 

IF scroll region THEN return 

24 

25 

0CB6 

22 




RET 


, 

26 

27 

0CB7 

0CB9 

05 

21 

12 

F4 


CDN3: 

INC 

AJMP 

YPOS ; 

XBLINAD ; 

ELSE bump position 

Update and return 

28 . 

29 

30 . 

31 

32 

33 





7 

ACDN - 

ANSI cursor down 


34 

35 





7 

m 

7 

*ACDN* moves the cursor toward the bottom of the display 
the specified Pn number of lines. 

36 ; 

37 ; 

38 

39 





7 

7 

ENTRY 

none 


40 

41 





m 

7 

7 

EXIT 

none 


42 

43 





7 

. U8E8' ■ • 

A, DPTR, INDXI, PTRl 


44 

45 

OCBB 

31 

D1 


ACDN: 

ACALL 

GNP ; 

Get parameter 

A'6 

47 

OCfelji 

OCBF 

76 

04 

OT . 



JNT ’ 
INC 

■ ■ «CB1.■ 

A ! 

IF no parameters or 0 THEN 
bump to 1 

48 

49 

OCCO 

FA 



ACDl: 

MOV . 

INDXl, A ? 

Set UP index 

50 

51 

OCCi 

0CC3 

•^1‘ 

DA 

AS ■ ■■' 
FC 


. AC’D': . 

. ACALL ■ 

DJNZ 

CDN . r 

INDXl, ACD ; 

REPEAT cursor down one 1ihe 

UNTIL count = 0 

. 52 ’ 

0C05 

22 




. RET . 




C C C C C C ( c c c c 























































3 


3 


3 3 3 


3 3 3 3 


3 
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1 




. . 

APBT - 

ANSI perform back tab 



2 

3 




7 

7 

#APBT* 

moves 

the cursor back 

the number of tab stops 

indicated. 

4 

5 




7 

• 

7 






6 

7 




7 

• 

7 

ENTRY 

none 




8 

9 




9 

7 

7 

EXIT 

none 




10 

11 




7 

USES 

a1 1 




12 

13 

0CC6 

31 ’ 

D1 

APBT: 

ACALL 

GNP 


5 Get parameter 


14 

15 

0CC8 

OCCA 

70 

04 

01 


JNZ 

INC 

APBTl 

A 

; IF no parameter or 
" bump to 1 

0 THEN 

16 

17 

OCCB 

CO 

EO 

APBTl: 

PUSH 

ACC 


; REPEAT 


IS 

19 

OCCD 

OCDO 

12 

DO 

0602 

EO 


LCALL 

POP 

BTAB 

ACC 


• perform back tab 


20 

. 2X. 

0CD2 
QCR!5. .. 

D5 

...22 . 

EO 

F6 

DJNZ 

RET 

ACC, 

APBTl 

? UNTIL count = 0 
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....QUA . “ . cursor. address ins. .r.oy.t i.ne 


...#C.UA*. .do.es. .d.i.re.ct . cursor. .addr.es.s i.ns. .f .or. .^. .f e.nj. fi.n .modes.-. 


6 

7 





7 

ENTRY 

none 


9 





" 

EXIT 

none 


10 





; 

USES 

al 1 


11 









12 









13 

0CD6 

11 

2A 


CUA: 

ACALL 

SETDISP 

; Set dispatch and return 

14 









15 

0CD8 

75 

16 

04 


MOV 

DSADRL, #LOW (CUC) 

? Next dispatch address 

16 

OCDB 

75 

15 

OD 


MOV 

DSADRH, #HIGH (CUC) 


17 

OCDE 

30 

43 

11 


JNB 

HAZ, CUBO 

? IF Hazel tine THEN 

18 

OLE 1 

B4 

60 

00 


CJNE 

A, #96, CUAl 


19 

0C:E4 

40 

02 


CUAl: 

JC 

CUA2 

; IF value >= 96 THEN 

20 

0CE6 

94 

60 



SUBB 

A, #96 

; subtract offset 

21 

0i::E8 

B4 

50 

00 

CUA2: 

CJNE 

A, #NUMCHARS, CUA2A 


22 

OCEB 

40 

02 


i::UA2Ai! 

JC 

CUA3 

* iF va1ue >= n umc bars THEN 

23 

OCED 

74 

4F 



MOV 

A, #MAXCHAR 

' move to end of 1ine 

24 

OUEF 

80 

2F 


CUA3: 

SJMP 

CUR2 

" update and return 

26 

27 

(..)UF 1 

22 



CUR: 

RET 



28 

0CF2 

i::3 



CUBO: 

CLR 

C 


29 

0CF3 

94 

20 



SUBB 

A, #•' •' 

* ELSE subtract offset 

30 

0C:F5 

40 

FA 



JC 

CUR 

; check for 1ower bounds 

31 

0i::F7 

B4 

18 

04 


CJNE 

A, #MAXLINE, CUBl 

’ check for upper bounds 

32 

OCFA 

30 

15 

F4 


JNB 

L25EN, CUR 

; IF 25th disabled THEN ret 

33 

OCFD 

D3 




SETB 

C 

; ELSE fal1 throush 

34 

OCFE 

50 

FI 


CUBl: 

JNC 

CUR 

; IF upper bounds ok THEN 

35 

ODOO 

F5 

12 


CURl: 

MOV 

YPOS, A 

; replace Y-position 

36 

37 

0D02 

21 

F4 



AJMP 

XBLINAD 

' build line address 

38 

0D04 

0D06 

11 

2F 


cue : 

ACALL 

SETNORM 

■ Next dispatch address 

39 

30 

43 

OB 


JNB 

HAZ, CUCO 

■ IF Hazel tine THEN 

40 

0D09 

54 

IF 



ANL 

A, #000111116 

• do mod function 

41 

ODOB 

B4 

18 

00 


CJNE 

A, #MAXLINE, CUCl 

42 

ODOE' 

40 

02 


CUCl: 

JC 

CUCIA 

; IF value >= 24 THEN 

43 

ODIO 

74 

17 



MOV 

A, #MAXLINE~1 

• move to last line 

44 

45 

OtU 2' ’ ’ ’ 

SO. 

Ec 


CUCIA: 

SJMP 

CURi 

; update and return 

46 

0D14 

C:3 



CUCO: 

CLR 

C 


47 

0D15 

94 

20 



SUBB 

A, #•' ••• 

; Subtract offset 

48 

49 

ODl 7 
0D19 

40 

05 



JC 

cue 2 

; Check for lower bounds 

B4 

50 

00 


CJNE 

A, #NUMCHARS, CUCOA 


50 

ODIC 

40 

02 


CLICOA: 

JC 

CUR2 

" Check for upper bounds 

51 

ODIE 

74 

4F 


CUC2: 

MOV 

A, #MAXCHAR 

7 IF bad range THEN move to end 

52 

0D20 

F5 

11 


CUR2: 

MOV 

XPOS, A 

; Replace X-position 

53 

0D22 

21 

F4 



AJMP 

XBLINAD 

; Build line address and return 


C C C C C C € c c c c 


































3 
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1 





; ; 

DSR - 

define scrolling region 



2 

3 





■ 

7 

m 

7 

*DSR» 

defines the scrolling regions top and bottom line. 

4 





11 

7 

The region must be at least two 

lines long and can not include 

5 





• 

7 

the 25th line. 



6 ? 

7 ? . 

8 





• 

7 

ENTRY 

none 



9 





• 

7 





10 

11 





7 

7 

EXIT 

none 



12 





7 

USES 

A, DPTR 



13 










14 










15 

0D24 

31 

D1 


DSR: 

ACALL 

GNP 

; 

Get first parameter 

16 

0D26 

60 

01 



JZ 

DSRO 


IF parameter and not 0 THEN 

17 

0D28 

14 




DEC 

A 

; 

normalize to 0..24 

18 










19 

0D29 

B4 

17 

00 

DSRO: 

CJNE 

A, #MAXLINE~1, DSROA 



20 

0D2C: 

50 

02 


DSROA: 

JNC 

DSRl 


IF top >= 22 THEN 

21 

0D2E 

F5 

17 



MOV 

TSCROLL, A 


change value . 

22 










23 

0D30 

31 

D1 


DSRl: 

ACALL 

GNP 


Get next parameter 

24 

0D32 

60 

01 



JZ 

DSRIA 


IF parameter and not 0 THEN 

25 

0D34 

14 




DEC 

A 

; 

normalize to 0..24 

26 










27 

0D35 

B5 

17 

01 

DSRIA: 

CJNE 

A, TSCROLL, DSR2 



28 

0D38 

D3 




SETS 

C 

; 

IF bottom = top OR 

29 










30 

0D39 

40 

05 


DSR2: 

JC 

DSRERR 

7 

IF bottom < top OR 

.3.1. 

.Q0.38. 

... B4..... 

18 

00 


.Cs«N.^.. 

A, #MAXLINE, .DSRSIA. 



32 

bD3E 

40 

02 


DSR2A: 

JC 

DSROK 

; 

IF bottom >= 25 THEN error 

33 










34 

0D40 

74 

17 


DSRERR: 

MOV 

A, #MAXLINE-1 

V 

Default error value 

.3.5. 

, .Q0.4?. 

04 



DSROK: 

INC 

A . 

; 

Bump for top of bottom fixed 

36 

0043 

F5 

18 



MOV 

BFIX, A 

; 

Save value 

. 

.0P.45..., 

81 

36 



AJMP 

SCH 

.5 . 

Set cursor home and return 
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. \ ..?.?.PIL .7 perform insert line 


;*.PIL» inserts a blank. 1 i.ne. .at .th.e .cursor pos i t i on after 


4 




f 

moving 

the remaining lines 

down one line. Everything is 

5 




? 

.done relative to the resion 

the cursor is in, top fixed. 

6 




? 

bottom 

fixed7 25th 1 ine7 or 

scrolling region. No region 

7 




7 

outside 

of the current region is effected. The cursor is 

8 

9 




? 

7 

moved to the beginning of the current line. 

10 








11 




■ 

7 

ENTRY 

none 


12 




• 

7 




13 





EXIT 

none 


14 




7 




15 




7 

USES 

al 1 


16 








17 








18 0D47 

CO 

12 


PIL: 

PUSH 

YPOS 

* Save values 

19 0D49 

CO 

17 



PUSH 

TSCROLL 


20 0D4B 

CO 

18 



PUSH 

BFIX 


21 0D4D 

E5 

12 



MOV 

A, YPOS 

; Get position 

22 0D4F 

B5 

17 

00 


CJNE 

A, TSCROLL, PILA 

; IF upper fixed region THEN 

23 0D52 

40 

21 


PILA: 

JC 

PILRTl 

; Just return 

24 0D54 

15 

18 



DEC 

BFIX 


25 0D56 

B5 

18 

07 


CJNE 

A, BFIX, PILl 

; IF last line scrolling region 

26 0D59 

85 

12 

FO 


MOV 

B, YPOS 


27 0D5C 

71 

96 


PILO: 

ACALL 

CLRLINE 

• Just clear the line 

.28' OtiSE 

29 

80 

12 



SJMP 

PILRET 


30 0D60 

31 

40 

08 


PILl: 

JC 

PIL 2 

? IF lower fixed THEN 

35 0D62 

’64. 

18 

10 


CJNE 

A, #MAXLINE, PiLRti 

? IF not 25th line THEN return 

33 0D65 

75 

FO 

18 


MOV 

B, #MAXLINE 

; ELSE clear 25th line 

34 0068 

35 

■ "80 . 

F2 



SJMP 

PIL6 . 

• and return 

36 0Ci6A 

"OS. 

18 


PIL2: 

INC 

BFiX 


37 0D6C 

85 

12 

17 


MOV 

TSCROLL, YPOS 

; Insert line uses 

38 0D6F 

39 

i2 

""osr8" 



CALL 

PRLF 

" Reverse line feed routine 

40 0D72 

"7S. 

11 

00 

PILREt: 

MOV 

XPdS, #6 

? Move to beginning of line 

41 0D75 

DO 

18 


PILRTl: 

POP 

BFIX 

• Restore values 

45 0D77 

"DO. 

17 



.POP. 

TSCROLL 


43 0D79 

DO 

12 



POP 

YPOS 


44 0D7Ei ■■■ 

"51'. 

F4. 



AJMP ' 

XBLiNAb 

; Build line address and return 


c c c c c c 


€ € 


C C C 
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1 





APIL - 

ANSI perform insert line 






7 

? 

*APIL^^ 

inserts the specified Pn 

number of lines at the 

4 





current 

cursor position. 


6 

7 




7 

7 

ENTRY 

none 


9 




7 

7 

EXIT 

none 


' lO 
11 




7 

7 

USES 

al 1 


.12 

13 

14 

15 

0D7D 

0D7F 

31 

70 

01 

01 

. APIL: . 

AC ALL 
JNZ 

GNP 

APILO 

? Get next parameter 
; IF no parameter or 0 THEN 

16 

17 

otiSi' ■ ■ 

■ ■ 04. 



1 NIC 

A 

; bump to 1 

18 

19 

0082 

0083 

FA 

B1 

47 

APILO: 

APILl: 

MOV 

ACALL 

INOXl, A 

PIL 

■ Set UP index 
; REPEAT insert one line 

20 

21 

0085 

0087 

OA 

FC 


OJNZ 

RET 

INDXl, APILl 

; UNtiL count == 0 
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. lr. Z5i . .T^PM INAL. F. I RMWARE. VERSI ON. .1, .03. .. 


.A.5 .FPU. “ . pe r f O r;iTi.. d.^ 3 . .u.n ... 

•.-."..*F.PL# . mgye*?. the . remain ins . l.i hes, .of . .the . cgr.rP.ht . pn. .gp. 

^ " one linei clears the last line of the region^ and moves 

......?.t h.<?. y.r;?.C!r.. t.Q . .t.hjsr.. i n.ri ji.ri?.. p.f. .t h.^.u.rr.en.t. . 1 . i.n^.-. 

6 : 


8 

9 






ENTRY 

none 



10 

.11 





; 

EXIT 

none 



12 





; 

USES 

al 1 



13 










14 










15 

0DS8 

...CO.... 

.12. 


.POL:. 

.PUSH... 

... y.po.s. 


. .SaYfe. y.a.l ues 

16 

0D8A 

CO 

17 



PUSH 

TSCROLL 



17 

0D8C 

CO 

18 



PUSH 

...BFJ.)$. 



IS 

0D8E 

E5 

12 



MOV 

A, YPOS 

? 

Get current position 

19 

0D90 

F5 

FO 



.MQV..... 

...P^.A... 

? 

. .S9i.Y€f.. i.t. .i n.. f B). .a.l. 5.0.. 

20 

0D92 

B5 

17 

00 


CJNE 

A, TSCROLL, PDLA 

7 

IF upper fixed THEN 

O 1 

.0095 . 

...40..... 

.....PE...... 


.... RPUA.s. 

.V«JC. 

... .P.ILRTJI. 


Just return 

22 

0D97 

04 




INC 

A 



..23 

.0.P9.8... 

...B.5.... 

.IS. 

... .04..... 


.CJNE... 

...A»..BF.IX.,..PDL1. 


, .1F.. ].4S.t. .1. i.ne.. o.f. s cr; o.l. 1. .THEN. 

24 

0D9B 

71 

96 


POLO: 

ACALL 

CLRLINE 

; 

clear current line 

25 

26 

.0.P3P... 

...30.... 

.P.3. 



.SJMP... 

...P.IUBE.T.. 

....5 . 

_^n.d. .r^.tu.rn. 

27 

0D9F 

40 

08 


PDLl: 

JC 

...P.PU2.... . 

. 

. J F.. t'.Q .t.t f'.rf' .t . .THEN.. 

28 

ODAl 

B4 

19 

D1 


CJNE 

A, #NUMLINES, PILRTl 


IF 25th line THEN. 

29 

0DA4 

75 

FO 

18 


MOV 

... B ,. .#MAX.LINE... 

. . . ? . 

clear 25th line 

30 

0DA7 ■■ 

8r3 

F2 



SJMP 

PDLO 

, 

and return 

31 










32 

0DA9 

85 

IS 

12 

PDL2: 

MOV 

YPOS, BFIX 

; 

Put cursor above fixed 

33 

ODAC 

15 

12 



DEC 

YPOS 



34 

ODAE ■ 

85 

FO 

17 


MOV 

TSCROLL, B 

? 

Get saved current line 

35 

ODBl 

12 

0.561 



LCALL 

PLF 

m 

Line feed to simulate delete 

36 

0DB4 

A1 

72 



AJMP 

PILRET 

7 

Return 


€ c c c c c c c c c c 
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1 


? ? 

APDL - 

ANSI perform delete line 



. 

Pi 


.*. * u 

7 

*APDL* 

de1etes 

the specified Pn 

number of lines 

at and 

4 

5 


7 

7 

toll owing the 

cursor position. 



.6’ 

7 


7 

7 

ENTRY 

none 




.S' 

9 


7 

• 

7 

EXIT 

none 




.ro* 

11 


" 

7 

USES 

A, B, 

DPTR, INDXl 



. V2 . 

13 

. 14’ 

15 

’omh’’ • 

0DB8 

"SI.D1.APDL;:. 

70 01 

.ACALL 

JNZ 

GNP 

APDLO 


? Get parameter 
; IF no parameter or 0 THEN 

. 16’ 

17 

ODBA' • • 

■ • •04. 

.INC. 

"A. 


; bump to i 


.isr 

19 

’otm' ■ 

ODBC 

"FA.APDLO:-••• 

B1 88 APDLl: 

.NDO. 

ACALL 

■•■iNDxi; 

PDL 

"A ■■■ 

“ Set UP index 
; REPEAT delete 

one 1ine 

.20 

21 

ODBE 

ODCO 

fciA FC 

22 

DJN2 

RET 

"rNrixi, 

■ APCiLi 

; UNTIL count == 

0 
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1 



5 ? 

PIC - 

perform insert 

chararter 

2 



* 

■»-PIC-» 

al.l . characters that are at and to the right of the 

4 

5 

A 



.. 

c u r 5 o r 
. chanse 

one column to 

the right. Cursor position does not 

7 



; ■ 




y 

9 



t 

ENTRY 

none 


10 

11 



7 

EXIT 

none 


12 

13 




USES 

al 1 


14 







15 ODCl 

16 0DC3 

17 0DC:4 

74 

C3 

95 

50 

11 

PIC: 

MOV 

CLR 

SUBB 

A, #NLIMCHARS 
C 

A, XPOS 


ly ubc6 

19 

FA 



MOV 

INDXl, A 


20 0DC:7 

21 0DC:9 

E5 

85 

11 

12 

FO 

MOV 

MOV 

A, XPOS 

Br YPOS 

; Get current address 

22 ODCC 

23 

12 

0503 


LCALL 

CLA 


24 ODCF 

25 ODDI 

26 

78 

79 

20 

00 


MOV 

. MOV 

PTRl, #••• 

PTR2, #0 

? I n i t va 1 ue f 0 r 1 s t s 1 0 1 

27 0DD3 

EO 


PICl: 

MOVX 

A, @DPTR 


28 0DD4 

29 0DD5 

FC 

53 

S3 

EF 

MOV 

ANL 

WORK, A 

DPH, #ATRANL 

" Save lower character 

30 0DD8 

31 0DD9 

EO 

FD 



MOVX 

MOV 

A, ©DPTR 

TEMP, A 

. ; Save lower attribute 

33 ODDA 

E9 



MOV 

A, PTR2 


34 ODDB 

35 ODDC 

FO 

43 

83 

10 

MOVX 

ORL 

©DPTR, A 

DPH, ttCHRORL 

? Write lower attribute 

36 ODDF 

37 ODEO 

E8 

FO 



MOV 

MOVX 

A, PTRl 
@DPTR, A 

; Write lower character 

38 

39 ODEl 

A8 

04 


MOV 

PTRl, WORKA 

; Exchange character 

46 6de3 

41 

A 9 

05 


MOV 

PTR2, TEMPA 

? Exchange attribute 

42 ODES 

43 0DE6 

A3 

DA 

EB 


INC 

DJNZ 

DPTR 

INDXl, PICl 

; Bump UP 
; UNTIL al1 done 

44 0EiE8 




RET 




C C C C C C c c c c c 































3 


3 


1 




:> 




7 


7 
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1 




, , 

APIC - 

ANSI perform insert 


7 




m 

? 

*APIC* 

inserts 

the specified number of characters into . 

4 

f=i 




1 

? 

the line. 



6 

7 




J 

» 

ENTRY 

none 



8 

9 




m 

7 

EXIT 

none 



10 

1 1 




7 

-m 

7 

USES 

al 1 



12 

13 ......... 

14 

15 

0DE9 

ODEB 

31 

70 

D1 

01 

APIC: 

ACALL 

JNZ 

GNP 

AFT CO 


; Get parameter 

7 IF no parameter or 0 THEN 

16 

17 

ODED 

04 



INC 

A 


7 bump to 1 

18 

19 

ODEE 

ODEF 

FB 

B1 

Cl 

APICO! 
APICl: 

MOV 

ACALL 

INDX2, 

PIC 

A 

7 Setup index 

7 REPEAT perform insert char 

20 

21 

ODFl 

0DF3 

DB 

22 

FC 


DJNZ 

RET 

INDX2S 

APICl 

; until count = 6 
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. 1 



. . 

PDC - 

perform delete character 


.3. 



. 

*PEiC# 

deletes the charact 

er 

at the r u r s ri r p ci i t i n n h v m ri v i n 

4 



; 

the remaining characters 

on 

the 1 

ine to the left one column 




” 

..insf^rt tn.g. a i n 

the 

1 as t 


6 

7 



. 

position does not change. 




9 



. 

ENTRY 

none 




io 



; 






11 



; 

EXIT 

none 




12 

13 



; 

USES 

al 1 




14 









15 









16 OOF4 

74 

4F 

PDC: 

MOV 

A, #MAXCHAR 


■ 

Calc number 0 f m 0 ves 

17 0DF6 

C3 



CLR 

c 



10 '6df7 

95 

11 


SUBB 

A, XPOS 




19 0DF9 

FA 



MOV 

INDXl, A 




20 ODFA 

74 

4F 


MOV 

A, #MAXCHAR 


- 

Uet address at end of line 

21 ODFC 

85 

12 

FO 

MOV 

B, YPOS 



22 ODF'F 

12 

0503 


LCALL 

CLA 




23 0E02 

EO 



MOVX 

A, QDPTR 




24 0E03 

FS 



MOV 

PTRl, A 


■ 

Save upper character 

25 0E04 

74 

20 


MOV 

A, #••• 



26 bEu 6 

FO 



MOVX 

ebPTRS A 


- 

Clear last character 

27 0E07 

53 

83 

EF 

ANL 

DPH. #ATRANL 




28 OEOA 

EO 



MOVX 

A, ©DPTR 




29 OEOB 

F9 



MOV 

PTR2, A 


• 

Save upper attribute 

30 OEOC 

E4 



CLR 

A 




31 OEOD 

FO 



MOVX 

@DPTR, A 


; 

Clear last attribute 

32 OEbE 

EA 



MOV 

A, INDXl 




33 OEOF 

60 

20 


JZ 

PDC2 


; 

Exit out if last c 01 umn 

34 

35 OEll 

E5 

82 

PDCl : 

MOV 

A, DPL 


. 

Decrement DPTR without 

36 OE 1 3 

'24' ' 

FF 


ADD 

A, #-l 


• 

Using a -CLR C~ 

37 0E15 

F5 



MOV 

DPL, A 



Instruction to save 

38 OE17 

39 0E19 

E5 

83 


MOV 

A, DPH 


■ 

Every bit of time 

34 

FF 


ADDC 

A, #~1 



40 OEIB 

F5 

83 


MOV 

bPH, A 




41 









42 OEID 

EO 



MOVX 

A, ©DPTR 




43 OEIE 

FD 



MOV 

TEMP, A 


; 

Save lower attribute 

44 OEIF 

43 

83 

io . 

ORL 

DPH, ttCHRORL 




45 0E22 

EO 



MOVX 

A, QDPTR 




46 dE23 

47 

FC 



MOV 

WORK, A 



Save lower character 

48 dE24 

E3 



MOV 

A, PTRl 




49 0E25 

FO 



MOVX 

QDPTR, A 


5 

Write character 

50 bE26 

53 

83 

E'F 

ANL 

DPH, #A'tRAN'L 




51 0E29 

E9 



MOV 

A, PTR2 




. 52 ■ dE’2A' 

53 

' ’ f6' ' 



MOVX 

©b'Pt'R, A 


7 

Write attribute 

54 dE2B 

55 0E2D 

A 8 

A9 

04 


MOV 

F-TRl, WORK A 


; 

Exchange Character- 

05 


MOV 

PTR2, TEMPA 


• 

Exchange attribute 

56 0E2F 

57 0E31 

DA 

EO 


DJNZ 

INbXl, PDCl 


- 

uKitlL al 1 -done . 

22 


PDC2: 

RET 





c c c c c c 


c c c c 


c 
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1 

. . 

APDC - ANSI perform delete character . 

2 

3 

m 

7 

*APDC* deletes the specified number of characters from the . 

4 

5 

• 

7 

1 ine. 

6 

7 

7 

m 

7 

ENTRY none . 

. 8 

9 

7 

• 

7 

EXIT none 

10 

11 

7 

USES all . 


i 2 


. i4 

15 

.16 

17 

oe32 
0E34 
■ DE3‘6‘ ■ ■ 

■31 

70 

••C)4 . 

Dl 

01 

.APDt:!. 

ACALL 

JNZ 

INC 

GNP 

APDCO 

A 


; Get parameter 

7 IF no parameter or 0 THEN 
• bump to 1 

.iS 

' 0 £' 37 ' ■ ■ 

•FB . 


APDCO: 

MOV 

INDX2, 

A 

7 Setup index 

19 

0E38 

B1 

F4 

APDCl! 

ACALL 

PDC 


7 REPEAT perform delete char 

20 

21 

0E3A 

0E3C 

DB 

22 

FC 


DJNZ 

RET 

INDX2, 

APDCl 

; UNTIL count = 0 
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X 

;? 

4 
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6 

7 






ENTRY 

none 



y 

9 






EXIT 

none 



10 

11 






USES 

al 1 



12 

13 

14 

OE3D 

11 

2A 


ZDSSBR: 

ACALL 

SETDISP 


..*. .Set. .dispatch and return 

15 

16 

17 

18 

19 

20 
21 

0E3F 

0E41 

0E42 

0E44 

0E46 

0E49 

11 

C3 

94 

40 

B4 

50 

2F 

40 

18 

OE 

13 

00 

ZDSO! 

.... ACALL 
CLR 
SUBB 

JC 

.C JNE 

JNC 

SETNORM 

C 

A, #•••©•' 
SBRET 

A, #(-N'- 
SBRET 


..?..Restore dispatch addre*:!*^ 

." Subtract offset 

? Check for 1ower bounds 
. .zp.so.. 5 . .c.he.c.k. .f .or. .MP.pe.r. .bc.wn.d?. 

23 






IFC 

..ERROR.. 

NE,SBR-$ 

...5.R.QU.TINE.. 

•:asR:. 

.MUST. .FOLLOW 

24 

25 

26 






ENDC 




27 


29 

. 30'" 


31 



35 
*36 ■ 
37 


40 ■ ■ * 

41 


42 0E4B 

90 

0E5F 


SBR: 

43 0E4E 

93 




4'4 bE4F 

60 

OD 



45 0E51 

F5 

33 



46 0E53 

F5 

SD 



47 0E55 

C2 

9F 



48 bE57"‘ 

B4 

53 

00 


49 0E5A 

50 

02 


SBRO: 

50 0E5C 

D2 

9F 



51 0E5E 

22 



SBRET 


oBR - set baud rale 

.*?lBR*.seTect.s. a. baud, .rate .given the value of whirh rate t«-< 
select. .. 


.FN.TR.y.(A.>.. r. . whi ch baud rate ( 0. . 1.3) 

EXIT .r<.9.r*.^ 

.USES.A, DPTR 


MOV 

DPTR, #BRTAB 

Move 

A, @A+DPTR 

JZ 

SBRET 

MOV 

BAUDRATE, A 

MOV 

THl, A 

CLR 

SMO 

CJNE 

A,#83, SBRO 

JNC 

SBRET 

SETB 

SMO 

RET 



Point to baud rate table 
Get value from table 

IF ■ zero' 'tHEN ' ex'i't. 

Saye baud ra'^e 

Change baud rate. 

P1 a c e UART in t o m o d e 1 

.IF baud <> .300 THEN 

place UART into mode 3 


c c 


c c c c 


c c 


€ 


c 


c 




























7 


5)333 


3 3 3 3 


3 


Z29R0M; MICROBENCH 8051 CROSS ASSEMBLER (Vl)-218 24~FEB-83 15:30:06 PAGE 135 

Z-29 , COMPUTER. .TERMINAL .FIRMWARE . .VERSION . .1., P.3. . 


1 

2 

3 



• 

? 

BRTAB - 

*BRTAB# 

. 

j A5. .th«. ;tlm€'.r.- 

.valu.^s. 

. f .Q r. . baujid . r.a.tejs.. 

4 

5 






6 

7 


0E5F 

BRTAB 

EQU 

$ 



.3 

PE5P' ■' 

01 


DB 

1 

• 

7 

75 baud 

9 

0E60 

52 


DB 

82 

. 7, 

ilP.t-aud.. 

IP 

•pE6 V • ■ 

80 


DB 

128 

7 

150 baud 

11 

0E62 

CO 


DB 

.192. 

• 

. 

3.0P..b.au.d. 

12 

0E63 

EO 


DB 

224 

m 

7 

600 baud 

13 

0E64 

FO 


DB 

240 


.1.20.0.. ba.ud . 

14 

0E65 

F5 


DB 

245 

7 

1800 baud 

15 

0E66 

00 


DB 

0 

• 

. 200.0 . .bau d. . i n c>.t . ava i .l.ab. la). . 

16 

■0E67 

F8 


DB 

248 

7 

2400 baud 

17 

0E68 

00 


DB 

0 . 

. 

. 3.600. .bag d.. .(.n c.t . .ay.ai.laJa la). 

18 

0E69 

FC 


DB 

252 

7 

4800 baud 

19 

0E6A 

00 


DB 

0 

II 

.720.0. Laud..(no.t. aval .l.ab.le.I. 

20 

0E6B 

FE 


DB 

254 


9600 baud 

21 

0E6C: 

FF 


DB 

255. 


. 1.92.00. .b.au.d. 
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.X 





.PSQF..~ 

put string in output FIFO 

3 




? 

m 

7 

•«-PSCiF» 

places the character string pointed to bv DPTR into 

4 

.5 





the output FIFO. Final character has bit seven set. 

6 

.7 




9 

.ENTRY . 

(DPTR) ~ ?tart of string . .. 

8 

.9. 




m 

9 

EXIT 

none 

10 

.U. 





USES 

A, B, DPTR 

12 

.13. . .. 

14 

.15 

0E6D 

.P.E6.E... 

E4 

93 


FSOFs 

CLR 

Move 

A ; REPEAT 

A? @A+DPTR ; get character 

16 

.1.7 

0E6F 
0^7.2... 

20 

...QQ. 

E7 OD 

82 


JB 

PUSH 

ACC.7, SOR ; IF bit 7 set THEN exit 

DPL ; save DPTR 

18 

.15? 

0E74 
.QE76... 

CO 

...fil. 

83 

A6.. 


PUSH 

ACALL 

DPH 

CPR2 5 Place character on FIFO 

20 

.21. 

0E78 
.0E7A.. 

DO 

...DO. 

83 

.82. 


POP 

.POP. 

DPH ; restore DPTR 

.. DPU. 

22 

.23 

0E7C 
.0E.7D... 

A3 

... 80.. 

.EE. 


INC 

.3.0M.P... 

DPTR ; bump pointer 

..P.SOE. ; UNTIL done 

24 

.?5 

QE7.F... 

...54. 

7F 

. SOR:. 

ANL 

A, #7FH ; Mask off 7th bit 

26 

0E81 

80 

23 


SJMP 

CPR2 ; Place last char on FIFO 


cccccc ccccc 














































3 


3 


3 


3 


3 


3 


3 


3 
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1 





? T 

CPR - cursor position report 



2 

3 





; 

•tt-CPR* outputs the cursor position 

in the format of the mode . 

4 

5 





; 

currently set. 



6 

7 





; 

ENTRY 

none 



8 

9 






EXIT 

none 



10 





; 





11 





; 

USES 

al 1 



12 

13 . 

14 

0E83 

30 

43 

11 

CPR: 

JNB 

HAZ, CPRl 

; 

IF Hazel tine THEN 

15 

0E86 

E5 

11 



MOV 

A» XPOS 

; 

get -XPOS- . 

16 

0E88 

B4 

20 

00 


CJNE 

A, #32, CPRO 



17 

0E8B 

50 

02 


CPRO: 

JNC 

CPROA 

J 

IF value < 32 THEN. 

18 

bE8D 

24 

60 



ADD 

A, #96 

7 

normalize 

19 

0E8F 

D1 

A6 


CPROA: 

ACALL 

CPR2 

■ 

output v^1m«.. 

20 

0E91 

E5 

12 



MOV 

A, YPOS 

7 

get -YPOS- 

21 

0E93 

24 

60 



ADD 

. 

• 

7 

....norin^.l.i?.^. 

22 

0E95 

80 

OF 



SUMP 

CPR2 

7 

output value and return 

23 










24 

0E97 

90 

0EA9 


CPRl: 

MOV 

DPTR, #CPRM 

7 

ELSE 

25 

0E9A 

D1 

6D 



.ACAUC.. 

PSOF . 

• 

1 

output ESC Y . 

26 

0E9C 

E5 

12 



MOV 

A, YPOS 

7 

get line number 

27 

0E9E 

24 

20 



ADD 

A, #•' 

7 

convert to ASCII . 

28 

OEAO 

D1 

A6 



ACALL 

CPR2 

m 

7 

output it 

29 

0EA2 

E5 

11 



MOV 

A, XPOS 

7 

get column number... 

30 

0EA4 

24 

20 



ADD 

A, #•' 

7 

convert to ASCII 

31 

0EA6 

02 

022A 


CPR2: 

.JM.P. 

PQOF . 

7 

.... o'J tP'.J.t. .i t .and. .r.e t.MCTi. 

32 

.33. 

0EA9 

IB 

D9 


CPRM: 

. m . 

ESC, ('Y’+SOH) . 

; 
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1 




• - 

IDT - 

identify terminal 


3 




> 

7 

•«-IDT* 

identifies the terminal 

as a DEC VT52 so that existing 

4 

5 




7 

DEC sc 
as it 

ftware which interrogate 
would with a VT52. 

s the console type will operate 

6 ; . 

. 7 ; 

8 

9 




7 

7 

ENTRY 

none 


10 

11 




7 

7 

EXIT 

none 


12 

13 





USES 

al 1 


14 

15 

16 
17 

OEAB 

OEAE 

90 

Cl 

OEBO 

6D 

IDT 2 

MOV 

AJMP 

DPTR, ttIDTM 

PSOF 

; Uutput string and return 

18 

19 

Ob Bo 

IB 

2F 

CB IDTM: 

DB 

ESC, ( •• k- +80H) 

; ESC / k . 

20 . 

21 





; • 

IDTT - 

identify terminal type 


24 

25 




• 

7 

7 

*IDTT* 

identifies the terminal 

as a Z-29 so that future 

26 

27 




7 

7 

software can interrogate the console type and see what . 

version of the terminal is running. 

29 ] 

31 





ENTRY 

none 


32 

33 




m 

7 

7 

Exit 

none 


34 

35 




7 

■ ■ USES' ■ ■ 

all 


36 

37 

0EB3 

11 

2A 

IDTT: 

ACALL 

SETDISP 

" Set dispatch and return 

38 

39 

0EB5 

11 

2F 


ACALL 

SETNORM 

; Restore dispatch address 

40 

41 

0EB7 

OEBA 

B4 

90 

30 

OEBF 


CJNE 

MOV 

A, tt-O', . 

DPTR, #IDTTM 

? IF not •6' THEN return 

42 

43 

. AW ‘ 

OEBD 

Ci 

6D 


'AJMP 

■PSDF . 

? Output string and return 


ObBr 

0EC2 

IB 

BO 

69 

42 IDTTM; 

DB 

ESC, -^iB', (•'O-’+COH') ■ 



ccc cc c cc ccc 
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1 




? ? 

ADA - 

ANSI device attributes 


.if 

3 




. 

•»-ADA* 

identifies the terminal as 

a DEC VTIOO so that existing 

.4’ 




? 

DEC software which interrogates 
as it would with a VTIOO. 

the cohsole tvpe will operate 

6 

7 




? 

u 

> 




.3‘ 

9 




7 

ENTftY 

none 


id 

11 




; 

. Exit' 

none 


..12 

13 




7 

USES 

al 1 


.14- 

15 

DEC 3 

31 

D1 

ADAS 

ACALL 

GNP 

? Get parameter 

. U' 

17 

dECS- • • ■ 
OEC:7 

■' 7d 
90 

.BE. 

OECC 


JNZ 

MOV 

2aA 

DPTR, #ADAM 

‘ IP no parameter or 6 THEN 

.ig 

19 

dEEA * 

Cl 

. '6ti 


AJMP 

Asof 

5 output string arid return 

.ifd- 

OECC 

OECF 

IB 

31 

5B 3F 

3B 32 

ADAMS 

DB 

ESC, •'•i:?i;2', r-c'+soH) 



0eti2.E3 
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. X . 



.ZXAa.r.. 

ZBS. .iTi.Qd.^. .tgib. .f.uric.ti .ons.. 


. 3 . 



.-K-Z.TABI^.. 

does the tab functinn uested_ 

4 

.v*. 






6 

.7. 



ENTRY 

none 


8 

. 9 . 



EXIT 

none 


10 

. 11 . 



USES 

al 1 


12 

.ia.0ED3... 

...1.1 . 

.2A.Z.TAJE5? 

AQAUE . 

SETDISP J 

Get dispatch a.ddre^*' T^nfi return 

14 

..0E05 .. 

....XX . 

.2F. 

.APAUE... 

..SE.TIM.QRM.5. 

.R.e5.to.r:e. .d.ispatch address 

16 0ED7 

. 17. .OEDA ... 

75 

.. .90. 

FO 03 

.PEOF. 

MOV 

.MO.V. 

B, #ZTABTL 

. .DP.TR^ . .ttZ.TABT. 


18 OEDD 

. 19. . 

01 

36 

AJMP 

STUMP ; 

Jump to anv routine 

20 

.21.. 

22 

.23. 


■ ■ 

ZTABT - 

ZE*S* jTjode tab table 


24 

. 25 . 


; 

-K-ZTABT* 

contains valid ear a met ere; 


26 

. 27 . 


; 

functions in ZDS mode. 


28 

. 2?. 

...OEDE. 

. ZTABT 

.EQ.U. 

. .^ ... 


30 

.31..QEDF... 

...30 . 


..DB.. 

. . -7 

ESC . 0 

32 OEEO 

33 

0627 


DW 

HTC ? 

Horizontal tab clear 

34 0EE2 

35 0EE3 

36 

37 0EE5 

33 

0598 

38 


DB 

DW 

DB 

.pertabs .?. 

••8' ; 

ESC . 3 

.C.l^.ar. .^.l.l..tab?. . 

ESC . 8 

38 0EE6 

39 

0621 


DW 

HTS ; 

Horizontal tab set 

40 

0003 

ZTABTL 

EQU 

($~ZTABT)/3 ; 

Table lensth 


c c c c c c c C C € c 






























































3 

) 

3 

3 


3 

7 7 

7 7 
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1 


. . 


SCP - 

save cursor position 


2 

3 


? 

7 


«-SCP* 

saves current cursor position. 


4 5 

5 ? .. -. . 

6 

7 


7 

7 


ENTRY 

none 



.8. 

9 


7 


• Exir- 

none 



.lO ■ 

11 


m 

7 


USES 

none 



.12 

13 0EE8 

85 

11 35 £:CP: 


MOV 

XXPOS 

, XPOS ; Save values 


14 OEEBi 

15 OEEE 

85 

22 

12 36 


MOV 

RET 

XYPOS 

, YPOS 


.Y-i. 

17 . . . 

. 18 

19 ..... 

20 

21 


• 

7 


ASCP - 

ANSI save cursor position 


22 

23 


m 

7 

7 


*ASCP* 

saves 

current position and attributes. 


24 

25 


7 

7 


ENTRY 

none 



26 

27 


7 

m 

7 


EXIT 

none 



28 

29 


7 

• 

7 


USES 

a1 } 



30 

31 . 

32 OEEF 

33 OEFl 

31 

40 

bl ASCP! 

F5 


ACALL 

JC 

GNP 

SCP 

• Get parameter if 
; IF no parameter 

anv 

THEN ok 

34 0EF3 

22 



RET 
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i 





" * 

U8i::P - 

unsave cursor position 







7 

•w-USCP-H- 

returns to position saved 

with the use of -s-SCP#. 

4 ; . 

6 

7 





. 

ENTRY 

none 


;*• 

9 





; 

exit 

none 


10 

11 





‘ 

USES 

a1 i 


12 

13 

0E'F4 

85 

35 

11 

USCP: 

MOV 

XPOS, XXPOS ; 

Restore values 

14 

15 

0EF7 

0EF9 

E5 

B4 

36 

18 

03 


MOV 

CJNE 

A,XYPOS 

A, #MAXLINE, USCPl ; 

IF on 25th line THEN 

16 

17 

OEFC 

OEFF 

30 

F5 

15 

12 

02 

USCPl: 

JNB 

MOV 

L25EN, USCP2 ; 

YPOS, A ; 

IF not enabled tHEN exit . 

ELSE set position 

IS 

19 

OFOl 

21 

F4 


IJSi::P2: 

AJMP 

XBLINAD ; 

build address and return 

20 . 

21 

'55' 





• - 

AUSCP ~ 

ANSI unsave cursor positi 

on 

24 






«-AUSC:P* 

returns to position saved 

with the use of -s-SPCP*. 


5:6 

27 


28 

29 



; 

ENTRY 

none 



30 

31 



1 

EXIT 

none 



32 

33 



* 

USES 

al 1 



34 

35 OF03 

31 

D1 

AUSCP: 

ACALL 

GNP 

• Get parameter if 

anv 

36 OrUD 

37 0F07 

’40. 

.£’d .. 


JC 

RET 

uscp . 

• no parameters 

THEN ’ok. 


c c c c c c 


c c c c c 
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1 




. . 

ZATR - 

ZDS select attributes 


3 





*ZATR* 

selects which attribute 

s are to be turned on or off 

4 

5 





using the configuration of the 

lower 5 bits of the character. 

6 

7 





ENTRY 

none 


8 

9 




; 

EXIT 

none 


10 

11 





USES 

a 1 1 


12 

13 . 

14 

15 

0F08 

li 

2A 

ZATR: 

ACALL 

SETDISP 

; Set dispatch and return 

16 

17 

OFOA 

OFOC 

11 

C3 

2F 


ACALL 

CLR 

SETNORM 

C 

; Restore dispatch address 

10 

19 

OFOD 

OFOF 

94 

40 

30 

14 


SUBB 

JC 

A7 #' 0 - 

ZAR 

; IF below range THEN exit 

20 

21 

OF 11 

OF 14 

B4 

50 

20 00 

OF 

ZATRO: 

CJNE 

JNC 

A, #32, ZATRO 

ZAR 

; IF above range THEN exit 

22 

23 

OF 16 

OF 17 

13 

92 

08 


RRC 

MOV 

A 

RVVA, C 

V Get reverse video 

24 

OF 19 

OF 1A 

13 

92 

OA 


RRC 

MOV 

A 

BLINKA, C 

■ Get blinking 

26 

27 

OF 1C 

OF 1D 

13 

92 

OB 


RRC 

MOV 

A 

HALFIA, C 

; Get half i nteris i t v 

28 

29 

OF IF 

OF 20 

13 

92 

09 


RRC 

MOV 

A 

UNDLNA 7 C 

; Get underline 

30 

31 

0F22 

0F23 

13 

92 

OC 


RRC 

MOV 

A 

ALTCHARA, C 

; Get alternate char set 

;-:3 

OF 2 5 

22 


ZAR: 

RET 



34 

35 . 

36 

37 




, , 

XATR •“ 

exit all attributes 


38 

■-'.Q 





^^XATR* 

t u r- n s off all attribute 

s so that none are active. . 

40 ? 

41 ; .. 

42 





ENTRY 

none 


43 








44 





EXIT 

none 


45 








46 

47 





USES 

none 


48 

49 

OF 26 


21 FO 

XATR: 

ANL 

ATTRIBUTES, #OFOH 

; Mask off all attributes 

50 

OF 2 9 

22 



RET 
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1 


. fHALF - 

enter half intensity mode 



*EHALF* 

places th^ t^r-rfiin.^] ■j.n'^ri half i nt^='rj®i i tv m'*'d^' 

4 




6 

7 


ENTRY 

none 

8 

9 

... ? 

EXIT 

none 

10 

11 


USES 

none 

12 

13 0F2A 

D2 OB EHALF: 

SETB 

■ ’ Set half intensity attribute 

14 0F2C: 

15 

22 . 

RET 


16 .... 

17 

1J=! 

19 

. ; 

EUNDL - 

enter underline mode 

20 

21 

1 

#EUNDL» 

places the terminal into underline mode. 

22 

23 

7 



24 

25 


ENTRY 

none 

26 

27 

. 

EXIT 

none 

28 

29 


USES 

none 

30 

31 0F2D 

D2 09 EUNDL: 

SETB 

UNDLNA ; Set underline attribute 

32 0F2F 

33 

22 . 

RET 


.. 

35 

.-!6 

37 

- ; 

EBLNK - 

enter blink mode 

38 

39 

7 

•H-EBLNK# 

Places the terminal into blink mode 

40 

41 




42 

43 

7 

7 

ENTRY 

none 

44 

45 

7 

7 

EXIT 

none 

46 

47 

7 

USES 

none 

48 

49 0F30 

D2 OA EBLNK: 

SETB 

BLINKA ; Set blink attribute 

50 0F32 

22 .. ■ ■ 

RET 







c c 


C C C € C C C C C 
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1 




. . 

ERVM - 

enter reverse video 

mode .— 

2 

3 




7 

7 

*ERVM# 

places the terminal 

into reverse video mode. 

'4 

5 

6 

7 




7 

7 

7 

7 

ENTRY 

none 


8 

9 




7 

7 

EXIT 

none 


10 

11 




• 

7 

USES 

none 


12 

13 

OF 33 

D2 

08 

ERVM: 

SETB 

RVVA 

; Set reverse video attribute 

14 

15 

0F35 

22 



RET 



16 

17 . 

18 

19 




, , 

XRVM - 

exit reverse video 

mode . . 

20 




7 

7 

#XRVM* 

removes the terminal from reverse video.,mode,. 

22 5 

24 





ENTRY 

none 


26 

27 





EXIT 

none 


7C> 





USES 

none 


30 

31 

(-)P 

i":2 

03 

XRVM: 

CLR 

RVVA 

; Clear reverse video attribute . 

32 

OF 3 8 




RET 
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1 


. . 

EGM ~ 

enter «3raphic5 mode 

L’ 





3 



*EGM# 

places terminal into graphirc; mode. 

4 - ..... 

.. 5 • 

6 

7 


1 

ENTRY 

none 

8 

9 


» 

EXIT 

none 

id 

11 


' 

USES 

none 

12 

13 OF39 

14 0F3B 

15 

D2 Oil 

EGM: 

SETB 

RET 

GRPH ? Set graphics mode 

16 





17 





ly 





19 


; ; 

XGM - 

exit graphic mode 

20 


; 



21 


; 

•s-XGM# 

exits the terminal out of graphic character mode. 

; . 

23 ; 

Z4 



ENTRY 

none 

27 


; 

EXIT 

none 

28 

29 


■ 

USES 

none 

30 

31 0F3C 

C2 OD 

XGM: 

CLR 

GRPH ; Clear graphic mode 

32 0F3E 

22 


RET 



c C C C C C c c c c c 


































1 



3 

1 

7 


3 7 5 3 

3 
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1 




. . 


CODES - 

CO designator 


3 






SIDES - 

Cl designator 


4 

5 






•s-CODES* arid #G1DES* assisn a sraphic character set to be 
associated with itself. If the character set is not found 


6 

7 




7 


then no action is taken. The values returned for the 

different character sets are as follows: . 


8 

9 




7 

7 


Character 1 Internal . 


lb 

11 






received ' value and meaning 





7 





12 

13 




; 


A 

B 

I 6 = United States (should be United Kingdom) 

! 0 = United States 


14 

15 






0 

1 

I i = United States with alternate graphic characters 

1 2 = Alternate character set 


16 

17 




; 


2 

1 3 = Alternate with alternate graphic characters 


18 

19 




; 


ENTRY 

none . 


20 

21 




7 


EXIT 

none . 


22 

23 




7 


USES 

.all. 


24 

25 . 

26 

27 

0F3F 

11 

2A 

codes: 


ACALL 

SETDISP ; Set dispatch and return 


28 

29 

0F41 

0F43 

11 

2F 

D5 



ACALL 

CLR 

SETNORM ; Restore dispatch address 

FO ; Flag for CODES 


30 

31 

0F45 

80 

08 



SUMP 

CDES ; Do the stuff 


32 

34 

3^1 

0F47 

11 

2A 

SIDES: 


ACALL 

SETDISP ; Set dispatch and ret'jr-ri . 


36 

37 

0F49 

11 

2F 



ACALL 

SETNORM " Restore dispatch address 


38 

39 

0F4B 
.QF.4i:» .. 

D2 

SO. 

D5 

. Q.Q . 



SETB 

.... .SvlMP. 

FO ; Flag for SIDES 

CPES 5 Do.the stqff . 



40 

.4.1. 

42 


‘t.-. 

44 0F4F 

45 OF52 

B4 

E 4 

41 

03 

GDES: 

CDESO: 

CJNE 

CLR 

A, #'A', CDESl 

A 

; IF char = -A- THEN 

; value of zero . 

46 0F53 

80 

10 



SUMP 

GDES3 


47. 








48 0F55 

B4 

42 

02 

CDESl: 

CJNE 

A, #'B-, CDES2 

; IF char = -B- THEN 

49 OpFiS 

80 

FS 



SUMP 

CDESQ . 

? ....V^.lye of. .z.ero. 

50 








51 0F5A 

c;3 



CDES2: 

CLR 

C 


52 0F5B 

94 

30 



SUBB 

A, #-0- 

; Subtract offset 

53 0F5D 

40 

.IB.... 



JC 

...CDESR.. 

; IF out of bounds THEIN return 

54 0F5F 

B4 

03 

00 


CJNE 

A. #3, GDES2A 


55 0F62 

50 

16 


CDES2A: 

JNC 

CDESR 

; IF out of bounds THEN return 

56 0F64 

04 




INC 

A 

? Bump into range 

57 
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Z"2; 

COMF^’UT 

.ER T1 

"RJIINAE.F 

IRMWARE. VERSlpN X , 03 





1 

OF 6 5 

20 

D5 

09 GDES3: 

JB 

FO, C 

ODESSA 

: IF for GO THEN 

2 

0F68 

ill 8 

IF 

FO 

ANL 

GSET, 

#111lOOOOB 

5 clear old value 


0F6B 

42 

IF 


ORL 

GSET, 

A 

; put in new value 

4 

0F6D 

30 

12 

OB 

JNB 

GSELv 

GOPICK 

? IF selected THEN pick it 

6 

OF 70 

.2?.. 



RET 



: ELSE return 

7 

OF 71 

53 

IF 

OF GDES3A! 

ANL 

GSET, 

#0000111 IB 

; ELSE c1 ear o1d va1ue 


OF 7 4 

C4 



SWAP 

A 


; p 1 ace i n t o p r- ci pe r n i b b 1 e 

9 

0F75 

42 

IF 


GRL 

GSET, 

A 

? put in new value 

10 

11 

OF 7 7 

20 

12 

07 

JB 

GSEL, 

GIPICK 

? ip selected THEN pick it 

12 

0F7A 

22 


GDESR: 

RET 



; F^eturn 


c c 


c 


c c c c c c c 


c 
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1 ' ‘ 

GOPICK - 

Pick GO graphic set 



0 7 

GIPICK - 

pick bi graphic set 



3 .’. 

4 ? 

5 " 

*g 6 PICK> and -K-GiPICK# place the 
indicated bv what has been set 

terminal into the 
for the particular 

mode 
graphic 

6 ' 

7 ’ 

set. 




9 ? 

ENTRY 

none 



. 16 .!. 

11 " 

EXIT 

none 



12 ' 

1 r-i ■ 

USES 

al 1 




16 0F7B 

17 0F7D 

C2 

E5 

12 

IF 


GOPICK: 

CLR 

MOV 

GSEL 

A, GSET 

7 Clear select flag 

7 Get graphic set chooser 

18 0F7F 

19 

80 

05 



SUMP 

GPICK 


20 OF81 

D2 

12 


G1PICKS 

SETB 

GSEL 

7 Set select flag 

21 oFfi'^ 

E5 

IF 



MOV 

A 7 GSET . 


22 OF85 

33 

C4 




SWAP 

A 

7 Get graphic set chooser 

24 0F86 

53 

21 

4F 

GPICKs 

ANL 

ATTRIBUTES 7 #01001111B 

; Clean different modes out 

26 0FS9 

-.7 

54 

OF 



ANL 

A 7 #0000111 IB 

7 Mask to get number of set 

28 0 F 8 E< 

90 

OF 92 



MOV 

DPTR 7 #GPICKT 

7 Get address of table 

29 0F8E 

93 




Move 

A 7 ©A+DPTR 

7 Get value from table 

30 0F8F 

42 

21 



ORL 

ATTRIBUTES 7 A 

7 Set as indicated bv table 

01 ncro 1 

•■>0 




RET 





33, 

34 

35 . 


36 

37 



;; GPICKT - 

graphic pick table 

38 

OQ 



; *GF’ ICKT* contains 

; attribute bvte. to. 

values that will be ORed into the 

40 
4 1 



! as indie 

ated bv the graphic mode defined above. 

42 

43 


OF 9 2 


$ 


44 

4*=1 


00 

DB 

OOOOOOOOB 

; 0 -- norm char . 

46 

47 

. vr. •: ■•ii ... 

0F93 

AO . 

DB 

lOlOOOOOB 

; 1 - norm char and alt sT.aph i c . set. 

48 

4Q 

OF 94 

1 0 

DB 

OOOIOOOOB 

; 2 - alt char set. . 

50 

51 

OF 95 

. . . ^ . 

BO . 

DB 

lOllOOOOB 

; 3 - alt char and graphic set 


































C C C C C C c C C C € 






























1 

1 

7 

7 7 7 7 7 
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1 



. . 


EKI - enable keyboard input 

2 

3 



7 

7 


■«-EKI» resets the flag which disables input from the keyboard. 

4 

5 



m 

• 

7 



6 

7 



7 

7 


ENTRY none 

8 

9 



m 

7 

7 


E>(lT none 

10 

11 





USES all 

12 

13 

0FB3 

C2 IF 

EKi: 


CLR KBDISF 

. i’4 

15 

0FB5 

0FB7 

74 89 

61 2 A 



MOV A, #kBC_EK ; Enable keyboard 

AJMP XPCKB ; Output and return 

.. 

17 

18 

19 

20 

21 



7 7 

7 


DKI - disable keyboard input 

22 

23 



■ 

7 

7 


*DKi* sets the flas» which disables input from the keyboard- 

24 

25 



7 


ENTRY none 

26 

27 



7 

7 


EXIT none 

28 

29 



w 


USES all 

30 

31 . 

33 

0FB9 

OFBB 

D2 IF 

74 88 

DKI: 


SETB KBDISF 

MOV A, #KBC_DK ? Disable keyboard 

34 

OFBD 

61 2A 



AJMP XPCKB ; Output and return 
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. 

. KBC.PLK - k«Yfci oard cars 1 o ck rout i ne 

2 

.*k-B.CP.LK*. t1 the kevb.o.ar.d irito and out of the caps 

4 ; 

1 0 c k e d mode. 

6 ; 

7 ; 

ENTRY none 

8 ; 

9 ; 

EXIT none 

10 

11 ; 

USES A, DPTR 


12 

13 


14 OFBF 

15 OFCl 

B2 

74 

35 

84 

KBCPLK: 

CPL 

MOV 

CAPLOCKF 

A, #KBC:_EL 

• Toggle caps locked flag 

16 0FC3 

20 

35 

02 

JB 

CAPLOCKF, KCl 


17 0FC6 

74 

85 


MOV 

A, #KBC_XL 


IS 0FC8 

71 

2A 

KCl: 

ACALL 

XPCKB 

* Output command to keyboard 

19 OFCA 

61 

23 


AJMP 

XR2_DISP 

.?.. .0 .i.5 P.l. aY. t.a t.g ?.. 1 .t n.e . . .r e.ty.r n. 


c 


c c c c c 


c c 


c c c 








































3 3 3 3 3 


3 


3 3 


3 
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1 





. . 

KBBREAK 

- kevboard break kev 


?. 





! 

-M-KBBREAK* indicates that the 

break kev on the kevboard has 

4 






been depressed. 

The terminal 

should then hold the serial 

5 





; 

output 

line low for a length 

of time. 

6 

7 





? 





9 





‘ 

ENTRY 

n 0 n e 



10 





? 

EXIT 

n 0 n e 



11 





; 





12 





; 

USES 

al 1 



13 










14 










15 

OFCC 

C2 

B1 


KBBREAK: 

CLR 

TXD 


7 Set break 

16 

OFCE 

7A 

00 



MOV 

INDXl, 

#0 


17 

OFDO 

7B 

50 



MOV 

INDX2, 

4t80 


18 

0FD2 

12 

02B6 


BRl: 

LCALL 

FCKB 


7 REPEAT look at kevboard 

19 

0FD5 

40 

05 



.JC 

BR2 



20 

0FD7 

B4 

89 

02 


CJNE 

A7 #KB_ 

.BREAK 7 BR2 

; IF another break THEN 

21 

OFDA 

8Q 

FO 



SUMP 

KBBREAK 

; start again 

22 

OFDC 

DA 

F4 


BR2: 

DJNZ 

INDXI 7 

BRl 

; UNTIL done 

23 

OFDE 

...DB. 

F2 



DJNZ 

INDX2, 

BRl 

; UNTIL all done 

24 

OFEO 

D2 

B1 



SETB 

TXD 


7 Back to normal 

•-lerj 

0FE2 

22 




RET 
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. X. 




, , 

KBSCROLL - keyboard "NO SCROLL 

" key 

■-> 




; 

4,.L.-PQrprii 



4 





keyboard has been depressed. 


6 

.7- 

P 





. ENTRY.... 



9 




* 

.E.XIT. 

none 


10 

11 




; 

USES 

a1 1 


12 . 

13 

14 

15 

0FE3 

0FE6 

20 

74 

36 

13 

OA KBSCROLL: 

JB 

MOV 

HSMODEF, KBSCR2 

A, #XOFF 

; IF not hold screen mode THEN 

7 start with XOFF 

16 

17 

0FE8 

OFEB 

30 

74 

11 

11 

02 

JNB 

MOV 

ukoFFSENT, KBSCRl 

A, #XON 

; IF user XOFF last sent THEN 

7 send an XON now instead 

18 

19 

OFED 

...0?. 

022A 


. tOMP 

PCOF 

7 p 1 .p. ^ j. rj oyt; pLj f FIFO ,•:>nH return 

20 

.21. 

.QF.FQ. .. 

... C2. 


. 

. KBSC:R2: 

. .CUR . 

HC3T0PF. 

.. 7. ELSE a 1.1 gi.ijg cr ^ en to run 

22 

24 

0FF2 
.QF.F4. ... 
0FF7 
0FF9 

05 
... 30. 

E5 

..C3 

IE 

.XC. 

IS 

...07. 

INC 

.JNB . 

MOV 

.CLR. 

HSLINE 

.3KIETE...K3R. 

A, BFIX 

C 

7 bump 1ine count 

.. ;.I.F..?raf.t..dp.wn..THEN. 

7 calculate number 

7 between pages 

26 

27 

OFFA 

OFFC 

95 

F5 

17 

IE 


SUBB 

MOV 

A, TSCROLL 

HSLINE. A 


28 

OFFE 

22 


KSR: 

RET 




c C C C C C c c c c c 
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1 




. . 

ROM #2 vectors 




2 

3 





.. . These locations are provided to facilitate future 

modifi 

rations 


4 





without a chanse to the masked processor. Each li 
.accessed with a -CALL- and control is <=>ained bark 

:i c a t i o n 
with a 

i s 

-RFT-. 


6 . 

7 

W 

9 





Initialization of terminal. 




10 

11 

1000 

1000 

02 

lOAF 


ORG ■R2_IN 

JMP ALLINIT 




12 . 

13 

14 

15 




" 

Soft initialization of terminal. 




16 

17 

1003 

1003 

02 

10E4 


ORG R2_iM2 . 

JMP SOF.TINIT 




18 . 

19 

20 

21 




7 

Start DMA routine. 




23 

1006 

1006 

02 

11 DC 


ORG R2_STARtbMA 

LUMP STARTDMA 




24 . 

26 

27 





Stop DMA routine. 




28 

29 

1009 

1009 

02 

ilFD 


ORG R2_SfOPbMA 

LUMP STOPDMA 




30 ... 

31 

33 





Fill screen routine. 




34 

35 

lOOC 

i oOc 

02 

1262 


ORG R2„FiLL . 

LUMP STFILL 




36 . 

37 

39 





Interrupt request. 




40 

41 

lOOF 

iOOF 

02 

1329 


ORG R2_IRQ 

LUMP IRQ 




.. . 

44 

45 





Serial interrupt. 




46 

47 

1012 

i 0 i 2 

02 

12CB 


ORG R2_SERiAL . 

LUMP SERIAL 




48 . 1 

... 

DU 

51 





Transmit character frorri serial port. 




52 

53 

1015 

1015 

02 

139B 


ORG R2^XMt 

LUMP TRANSMIT 




54 

55 





Send XON to host 



\ 

56 

57 


1018 



ORG R2-.X0N 



.\. 


c c c c c c c c c c c 








































1 
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1 

1018 

02 

13D5 

LUMP BOXON 

2 





3 





4 



; 

Initialize the cursor format. 

5 



; 


6 


lOlB 


ORG R2».ICUR 

7 

lOlB 

02 

117B 

LUMP SETCF 

8 





9 





10 



; 

initialize the keyboard 

11 





12 


lOlE 


ORG R2_IKB 

13 

lOlE 

02 

119E 

LUMP INITKB 

14 





15 





16 



; 

Setup mode vector 

17 



; 


18 


1021 


ORG R2_SETUP 

19 

1021 

02 

1417 

LUMP SETUP 

20 





.. 2 }. 



; 

Background loop hook. 

.2.3. 



; 


24 


1024 


ORG R2_BACK 

25 

1024 

22 


RET 

26 





.27, 





28 



; 

Keyboard input hook. 

29 



; 


30 


1027 


ORG R2_KY1 

.31. 

.1027... 

...22. 


RET 


. V. 

32 

.33 


34 


• Keyboard output hook. 

.35. 


7 . . . . .... 

36 

102 A 

ORG R2_KY2 

.37..1Q2A... 

22 

RET 


38 

3.9 


40 


? Escape parsing hook. 

. 41 . 


; 

42 

102D 

ORG R2_ESC 

. 43 . . 1023 .. 

... 22.. 

RET 


44 

4.5 


46 

47 . . 



■ Transmit character- 

48 

1030 


ORG R2>.TC 

..49..1.Q3.Q... 

.. .02. 

... wm . 

LUMP SXMTC 

50 




.....51 . 




52 



; Transmit line. 

. 53 . 



; 

54 

1033 


ORG R2-TL 

. 55 . J..033. . . 

...02 . 

. .. U»A3. 

U»MP SXMTL 


56 

5.7 
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1 


; 

Transmit pase. 

■f 

1036 

“ 

ORO 

R2^TP 

4 1036 

02 

IDAC 

LUMP 

XMTP 

6 

7 



Transmit 25th line. 

8 

9 

1039 


ORG 

R2_T25L 

10 1039 

11 

02 

1DC6 

LUMP 

XMt25 

12 

13 


■ 

Print Rase. 

14 

15 

103C 

“ 

ORG 

R2_PRNT 

16 103C 

17 

02 

1DD2 

LUMP 

PRINT . 

18 

19 


; 

Di splav 

c 1 o c k. 

20 

21 

103F 


ORG 

R2_DCLK 

22 103F 

23 

02 

lElF 

LUMP 

DCLK . 

24 

25 


; 

Di spI av 

status. 

26 

27 

1042 

' 

ORG 

R2-DISP 

28 i042 

02 

1E69 

LUMP 

DISPSTAT . 


c c c c c c 


c c c c c 



































3 




3 


3 

3 

3 3 

3 
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1 




. . 


INIT - 

initialize terminal 



2 

3 




; 


*INIT* 

sets UP internal 

RAM from 

the ROM and EAROM, reconfigures 


4 






screen 

tables and initializes processor bvtes. 


6 

7 




; 


ENTRY 

none 




8 

9 




; 


EXIT 

none 




10 

11 




; 


USES 

al 1 




12 

13 . . 

14 

15 

1045 

75 

DO 00 

INITs 


MOV 

PSW, #BANKO 


Select bank 0 


16 

17 

1048 
104 A 

78 

90 

OC 

IFDl 



MOV 

MOV 

PTRl, #ISTORE 
DPTR, #RAMCONST 


Load constants for 
initialization from ROM 


18 

19 

104D 

7A 

19 



MOV 

INDXl, #25 




20 

21 

104F 

11 

A7 



ACALL 

INMOV 


Move data 


23 

1051 

1053 

78 

7A 

35 

OB 



MOV 

MQV 

PTRl, #XXPOS 
IIxlDXl, #U 


Load constants for 

Second half of ROM..i;.on.st.antS. 


24 

■7Fi 

1055 

11 

A7 



ACALL 

INMOV 


Move data 


26 

27 




, 


Recal 1 

from EAROM 




28 

29 

1057 

C2 

03 



CLR 

EAROMRCALL 




30 

31 

1059 

105C 

12 

D2 

1E18 

03 



CALL 

SETB 

WLATCH 

EAROMRCALU 


Recai1 from EAROM 


32 

33 

105E 

12 

1E18 



CALL 

WLATCH 


By toggling bit 


34 

:?5 

1061 

1063 

78 

9Q 

25 

70 Q 0 



MOV 

MQ.V. 

PTRl, #25H 
..D.PT.R?..#.EA.TOM. 


Load constants for 
. .C.o^.d i .ng. .RAM. .f p.Qrn..E.AR.OM. 


36 

37 

1066 

7A 

10 



MOV 

INDXl, #16 




3 9 

1068 
1069 

EO 

54 

OF 

IN3: 


MOVX 
ANL. 

A, ©DPTR 

. A^..#OFH. 


REPEAT get upper nibble 
.mask. .da.t.a. 


40 

41 

106B 

1Q6Q 

i:;4' 

FT' 




SWAP 
MQ.V. 

A 

TEMP, A 


save upper O.i b.b .1 . 

42 

43 

106D 

106E 

A3 

EO 




INC 

MOVX 

DPTR 

A, ©DPTR 


b ump EAROM poin te r 

get lower nibble . 

44 

45 

106F 

1071 

54 

4D 

OF 



ANL 

ORL 

A, #OFH 

A, TEMP 


mask data 

combine upper an d. .1. ojwer:. 

46 

47 

1072 

1.Q73. 

F6 

A3 




MOV 

.INC. 

©PTRl, A 

DPTR 


place into internal RAM 
bump EAROM pointer . 

48 

49 

1074 

.1.0.75... 

08 
.. .DA 

. F.l . 



INC 

.D.UIM.Z..., 

PTRl 

...INDXl.... XN3.. 


bump internal RAM pointer 
...UN.TIL..d'?Av-. 


51 

1077 

C2 

8C 



CLR 

TRO 


Turn off timer 0 


52 

1079 

107C 

75 

75 

89 23 

98 5A 



MOV 

MOV 

TMOD, #ITMOD 
SCON? #ISCON 


Initialize values 

Place UART into mode 1 . 


54 

55 

107F 

E5 

33 



MOV 

A, PAUDRATE . 


.. .Q^.t.. ha.Md. .cat?.. 


56 

57 

1081 

1083 

F5 

B4 

8D 

53 00 



MOV 

CJNE 

THl, A 

A,#83, IN3B 


Initialize baud rate 


















































Z29R0Mi MICROBENCH 8051 CROSS ASSEMBLER (Vl)-218 24-FEB-33 15S30.-06 PAGE 160 

. 1 - 29 .. COMPUTER. .TERMINAL .FIRMWARE. .VERS.ION . i, Q3. .*•*;*■. 


. 1. 

.3. 

1088 

...50.... 

D2 

... 02 .... 

.02. 

9F 

.3E. 


IN3B: 

.1N.3A:. 

JNC 

SETB 

SETB 

IN3A ; 

SMO ; 

....TR*1.. ? 

IF baud O 300 THEN 

place UART in t o mo de 3 

Turn on baud rate timer 

4 

.5 

X.Qm.. . 

A2 

....3C. 



MOV 

C, PRTF2 


6 

lOSE 

92 

02 



MOV 

PORTF, C 

Initialize port direction 

.7. 

1090 

12 

.l.EiS.. 



CALL 

WLATCH 


8 

1093 

A2 

3D 



MOV 

C, ACHR2 ; 

Get alternate char set flas 

9 

1095 

92 

OC 



MOV 

ALTCHARA, C ? 

Place in attributes 

10 









11 

1097 

30 

43 

02 


JNB 

HAZ, IN4 ; 

IF Hazel tine mode THEN 

12 

109A 

31 

D4 



ACALL 

HAZINIT ; 

initialize for Hazel tine 

13 









14 

109C: 

12 

iF22 


IN4: 

CALL 

NVRCHK ; 

Checksum the NVRAM 

15 

109F 

B5 

34 

01 


CJNE 

A, NVRSUM, IN5 ; 

IF same THEN 

16 

10A2 

22 




RET 

; 

return 

17 

10 A3 

43 

40 

...l.P. 

IN5; 

ORL 

ERRORS, #000100006 ? 

ELSE error #4 

18 

10A6 

22 




RET 



19 









20 









21 





? 




22 

.S3 





? 

• 

7 

Move 

from ROM to RAM us ins DPTR, 

PTRl, and INDXl 

24 









25 

J0A7 

E4 



INMOV: 

CLR 

A ; 

REPEAT 

26 

10A8 

93 




Move 

A, @A+DPTR ; 

load constant 

.s?., 

.J-PA9... 

F6 




MOV 

©PTRl, A ; 

place into internal RAM 

28 

lOAA 

A3 




INC 

DPTR ; 

bump ROM pointer- 

29 

lOAB 

08 




INC 

PTRl ? 

bump RAM pointer 

30 

lOAC 

DA 

F9 



DJNZ 

INDXl, INMOV ; 

UNTIL done 

.31.. 

lOAE 

...2.2. 




RET 




c c c 


c c c 


c 


c c c 


c 
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1 




. . 

ALLINIT 

- initialize all 

of terminal 





1 

^ALLINIT# initializes ever-Ythins includinsi the CRTC. . 

'4 ? 

6 

7 




? 

ENTRY 

none 


p; 

9 




. 

EXIT 

n o n e 


10 

11 





USES 

al 1 


12 

13 

lOAF 

C2 

AF 

ALLINIT: 

CLR 

EA 

; Disable interrupts 

14 







" Initialize port #1 

15 

lOBl 

75 

90 

CF 

MOV 

PI, #1100111 IB 

16 







• Initialize errors here 

17 

10B4 

75 

40 

00 

MOV 

ERRORS, #0 

.18 

19 

■ idB‘7 

12 

1EC4 


CALL 

KBCHK 

• Check keYboard first (timins) 

20 

21 

lOBA 

11 

45 


ACALL 

INlt 

; Initialize everYthing 

.■•iii'i:' 

lOBC 

E4 



CLR 

A 


23 

lOBD 

78 

47 


MOV 

PTRl, #LORDER 

; Setup to initialize 

24 

lOBF 

7A 

19 


MOV 

INDXl, #NUMLINES 

; the -LORDER- table entries 

23 

lOCl 

F6 


ALLIl: 

MOV 

@PTR1, A 

; REPEAT place entr-Y into table 

27 

IOC 2 

08 



INC 

PTRl 

; bump RAM pointer 


10i::3 

04 



INC 

A 

; bump count 

29 

IOC 4 

DA 

FB 


DJNZ 

INDXl, ALLIl 

? UNTIL done 

30 

31 

10C6 

75 

BS 

03 

MOV 

IP, #IPINIT 

" Interrupt priorities 

32 

10C9 

31 

IE 


ACALL 

INITCRT 

' Start CRT controller 

34 

lOCB 

12 

1ED9 


CALL 

ROMCHK 

; Check ROM 

35 

lOCE 

12 

lEFl 


CALL 

RAMCHK 

‘ Check RAM 

36 

37 

lODl 

75 

A8 

95 

MOV 

IE, ttlEINIT 

; Enable interrupts 

38 

10D4 

12 

OBAC 


CALL 

CLRS 

; Clear screen 

40 

10D7 

75 

FO 

18 

MOV 

B, #MAXLINE 


41 

1ODA 

12 

0B96 


CALL 

CLRLINE 

? Clear 25th line 

42 

lODD 

D2 

24 


SETB 

VSPF 

“ Flag screen to be turned on 

43 

lODF 

12 

1F2C 


CALL 

ERROR 

; DisplaY ariY errors 

44 

10E2 

21 

9E 


AJMP 

INITKB 

; initialize keYboard return 
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1 


terminal 



2 

3 


termifia T. 

but nnt d^c^trrrv +*h<=' 


4 

’ current settings such as c. 

aps lock7 

on/off line, and time on 


5 





6 ! .... 


8 

9 





7 

ENTRY 

none 


10 





? 

EXIT 

none 


, . 11 









12 






USES 

al 1 


13 









14 









15 

10E4 

CO 

3A 


SOFTINIT: 

PUSH 

TCNT 

; Save doc k info rmat i o n 

16 

10E6 

CO 

3B 



PUSH 

TSEC 


17 

10E8 


3C 



PUSH 

TMIN 


IS 

lOEA 

CO 

3D 



PUSH 

THOUR 


19 

lOEC 

A2 

.2E ..... 



MOV 

C, ONLINE 


20 

lOEE 

92 

EO 



MOV 

ACC.O, C 

■ Save online flag 

21 

lOFO 

.. A2.... 

.35. 



MOV 

C, CAPLQCKF 


22 

10F2 

92 

El 



MOV 

ACC.l, C 

; Save caps locked flag 

23 

10F4 

CO 

EO 



PUSH 

ACC 


24 

25 

26 

10F6 

75 

90 

CB 


MOV 

PI, #1100101 IB 

.; Initialize port #1 

27 

10F9 

11 

45 



ACALL 

INIT 

; Initialize everything 

28 

29 

. 1OFB. 

DO 

EO 



POP 

ACC 


30 

i OFD 

A2 

El 



MOV 

C, ACC.l 


.31. 

lOFF 

...92. 

35 



MOV 

CAPLOCKF, C 

• Restore caps locked flag 

32 

1101 

A2 

EO 



MOV 

C, ACC.O 


33 

1103 

92 

2E 



MOV 

ONLINE, C 

• Restore online flag 

34 

1105 

DO 

3D 



POP 

THOUR 

* Restore clock information 

.^^5 . 

1107 

DO 

3C 



POP 

TMIN 


36 

1109 

DO 

3B 



POP 

TSEC 


37 

IlOB 

DO 

3A 



POP 

TCNT 


38 









39 

HOD 

31 

7B 



ACALL 

SETCF 

; Set cursor format 

40 

41 

HOF 

12 

OBAC 



CALL 

CLRS 

; Clear screen 

42 

1112 

20 

37 

06 


JB 

L250N, SOFTIl 

; IF 25th line is off THEN 

43 

1115 

75 

FO 

18 


MOV 

B, #MAXLINE 


44 

45 

1118 

02 

0B96 



JMP 

CLRLINE 

• clear 25th line 

46 

lllB 

02 

1E69 


SOFTIl: 

JMP 

DISPSTAT 

; ELSE display status info 


C C C C C C C' C C' c c 



































Z29R0Mr MI^bR6BE^ (Vl)~218 24-FEB-83 15:30:06 PAGE 163 

*** Z-29 COMPUTER . TERM INAL. FI jRMWARE VERS I ON.. 1 ...03 . ***.. . 


1 





? 1 

INITCRT 

~ initialize CRT controler . 

2 

3 





7 

• 

7 

*INITCRT* does everyth ins needed 

to get the CRT controler 

4 

5 





m 

7 

■ 

7 

UP and 

running properly. 


6 

7 





■ 

7 

7 

ENTRY 

none 


8 

9 





• 

7 

• 

7 

EXIT 

none 


10 

11 





m 

7 

7 

USES 

A, DPTR 


12 

13 . .. 

14 

15 

lllE 

1120 

CO 

C2 

A8 

AF 


INITCRT: 

PUSH 

CLR 

IE ; 

EA ; 

Save interrupt setup 

Disable interrupts 

16 

17 

1122 

75 

09 

02 


MOV 

DMLNA, #2 ; 

Start at first line to DMA 

18 

19 

1125 

1128 

75 

75 

OB 

OA 

AO 

60 


MOV 

MOV 

DMADRL, #LOW (DMAMEM+160) 

DMADRH, #HIGH (DMAMEM+160) 

20 

21 

112B 

D2 

97 



SETB 

CLKRUN ? 

Let the clock run 

22 

23 

112D 

31 

52 



ACALL 

SETCRT ; 

Set CRT controler 

24 

25 

112F 

D2 

88 



SETB 

ITO ; 

Int 0 transition activated 

26 

27 

1131 

53 

88 

D1 


ANL 

tCONi #11010001B 

Clear ITl, lEO, lEl, TFO 

28 

29 

1134 

1137 

90 

74 

2001 

EO 



MOV 

MOV 

DPTR, #DCMDREG 

A, #CSET 


30 

31 

1139 

FO 




MOVX 

©DPTR, A ; 

Preset counters 

:32 

33 

113A 

C2 

97 



CLR 

CLKRUN ; 

turn off clock 

34 

35 

113C: 

113E 

74 

FO 

20 



MOV 

MOVX 

A, #CSTRT 

©DPTR, A ; 

Start CRT contnuler 

36 

37 

113F 

D2 

97 



SETB 

CLKRUN ; 

Start clock 

38 

39 

1141 

74 

AO 



MOV 

A, #CINT 


40 

41 

1143 

FO 




MOVX 

©DPTR, A ; 

Enable VRTC interrupts 

42 

43 






IFC 

ERROR 

NE,DSTAREG-DCMDREG 
; •'DSTAREG - and • DCMDREG ' 

are different 

44 

45 






ENDC 



46 

47 






MOV 

DPTR, #DSTAREG 


48 

49 

1144 

1145 

EO 

44 

B3 



MOVX 

ORL 

A, ©DPTR ; 

A, #1011001 IB ; 

Get status register 

Fill in dont cares 

50 

51 

1147 

1149 

64 

F4 

08 



XRL 

CPL 

A, #00001000B ? 

A .. 

Toggle proper positions 

52 

53 

114A 

114C 

60 

43 

03 

40 

04 


JZ 

ORL 

ici ; 

ERRORS.,.. #00000l.QO.B....? 

IF not zero THEN 

flag error #2.... 

54 

55 

. U4E... 

00 

.AS. 


.IC.l?. 

.RQR. 

..IH ....5 

. .E b. 1 . p. 1 d.. i.o t.^ r.r. y,p t.-. s.t u 5.;. 

56 

1151 

22 




RET 
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1 



. . 

SETCRT 

- set CRT controler (reset 

8276) 




. 

^SETCRT# initializes the CRT controler screen parameter bvtes- 

4 ; . 

6 

7 



. 

ENTRY 

none 


ft 

9 



! 

EXIT 

none 


10 

11 




USES 

A, DPTR 


12 

13 

1152 

90 

2001 SETCRT: 

MOV 

DPTR, #DSTAREG 


14 

15 

1155 

EO 


MOVX 

A, ©DPTR ; 

Clear status register 

16 

17 




IFC 

ERROR 

NE,DCMDREG-DSTAREG 
?-DCMDREG' and 'DSTAREG- 

are different 

18 

19 




ENDC 



20 

21 




MOV 

DPTR, #DCMDREG 


22 

23 

1156 

1158 

74 

FO 

00 

MOV 

MOVX 

A, #i::reset 

©DPTR, A ; 

Reset and stop display 

24 

1159 

90 

2000 

MOV 

DPTR, #DDATREG 


26 

27 

115C 

115E 

74 

FO 

4F 

MOV 

MOVX 

A, #SCRN1 

©DPTR, A ; 

Output screen parameter bvtes 

28 

29 

115F 

74 

98 

MOV 

A, #SCRN2A 


30 

31 

1161 

1164 

20 

74 

39 02 

DC 

JB 

MOV 

FREQ, SCI ; 

A, #SCRN2B 

Check for 50/60 Hz 

32 

33 

1166 

FO 

SCI: 

MOVX 

©DPTR, A 


34 

35 

1167 

1169 

■ ‘74 
FO 

c>9 

MOV 

MOVX 

A, #SCRN3 
©DPTR, A 


36 

37 

116A 

74 

4E 

MOV 

A, #SCRN4A 


38 

39 

116C 

116F 

20 

74 

39 02 . 

4F 

JB 

MOV 

FREQ, SC2 ? 

A, #SCRN4B 

Check for 50/60 Hz 

40 

41 

1171 

1173 

A2 

92 

38 SC2: 

E5 

MOV 

MOV 

C, CRNBK ; 

ACC.5, C 

Get cursor no b1 ink f1 as 

42 

43 

iiZS’ ■ 
1177 

A2 

92 

32 

E4 

MOV 

MOV 

C, CRUL ; 

ACC.4, C 

Ge t c u r s o r underline f1 as 

’44 

45 

■ii79’ ■ 
117A 

FO 

22 


MOVX 

RET 




c c c 


c c c 


€ C 


c c c 
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1 




T 7 

SETCF - 


2 

3 




• 

7 

*SETCF» 

initializes the CRT controler for the cursor format . 

4 

5 




7 

7 

indicated. 

6 

7 




7 

• 

7 

ENTRY 


8 

9 




7 

m 

7 

EXIT 

none . 

10 

11 




m 

7 

7 

USES 

A, DPTR . 

12 

13 ... 

14 

15 

117B 

31 

52 

SETCFs 

ACALL 

SETCRT " Initialize screen registers 

16 

17 

117D 

1180 

90 

74 

2001 

20 


MOV 

MOV 

DPTR, #DCMDREG 

18 

1182 

FO 



MOVX 

efaPTR, A ; Start CRT controler 


19 

'20 1183 


RET 
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1 



. . 

CURSOR 

“ update cursor position 





; 

-K-CURSiOR* sends the current 

c u r s 0 r 

address to the CRTC and 

4 



; 

disables cursor if data is 
is disabled. 

> 600 

b a u d 0 r d i s p 1 ar o f c u r s o r 

6 

7 



! 





Cl 

9 



. 

ENTRY 

none 



10 

11 




EXIT 

none 



12 

13 




USES 

a\ DPTR 



14 

15 

1184 

90 

2001 CURSOR: 

MOV 

DPTRS #DCMDREG 



16 

17 

1 187 
1189 

74 

FO 

80 

MOV 

MOVX 

a\ #CCRSR 
@DPTR, A 

. 

Load cursor F> 05 ition 

18 

19 

118A 

90 

2000 

MOV 

DPTR, #DDATREG 



20 

21 

USD 

IISF 

E5 

FO 

11 

MOV 

MOVX 

A, XPOS 
©DPTR, A 

. 

Load cursor X~position 


1190 

E5 

12 

MOV 

A, YPOS 



24 

2!^i 

1192 

1195 

30 

3C) 

lA 03 

14 02 

JNB 

JNB 

ENBLCUR, CRl 

DX, CR2 


iF c u r s o r dis p 1av disabled OR 

IF char rcvd since last time 

26 

27 

1198 

119A 

74 

FO 

lA CRl: 

CR2: 

MOV 

MOVX 

Ai, #NUMLINES + 1 
©DPTR, A 

5 

put in non-existina region 

ELSE put cursor Y-position 

28 

119B 

C2 

14 

CLR 

DX 


and clear -DX- 

30 

119D 

22 


RET 





c c c 


c c 


c 


c 


c 


c c c 
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1 ?; 

INITKB - initialize keyboard 

'2 . ■;. 

3 ; 

-w-INITKB* resets the keyboard to whatever settings the terminal 

4 ; 

5 ; 

has at the current moment. 

6 ; 

7 ; 

ENTRY none 

s ; 

9 ; 

EXIT none 

10 ; 

11 ; 

USES all 


12 

13 


14 

15 

119E 




INITKB: 

IFC 

ERROR 

NE,KBC_XL - KBC_EL - 
•■This code will not 

1 

work' 


16 






ENDC 




17 

119E 

74 

84 



MOV 

A, #KBC_EL 



18 

11 AO 

20 

35 

01 


JB 

CAPLOCKF, IKBl 

? 

IF not caps locked THEN 

19 

11 A3 

04 




INC 

A 

■ 

output caps unlocked 

20 

11A4 

31 

C8 


IKBl: 

ACALL 

IKB6 

• 

7 

(save bytes this way) 

21 










22 






IFC 

NE,KBC-.ONLN - KBC.OFFLN - 

1 

23 






ERROR 

. ;. I h. i. ? . c.o d.^ 0 / i 1 1 not 

work 


24 






ENDC 




25 

11A6 

74 

8 A 



MOV 

A, #KBC_OFFLN 



26 

11A8 

30 

2E 

01 


JNB 

ONLINE, IKB2 

; 

IF on line THEN 

27 

llAB 

04 




INC 

A 

; 

output on line command 

28 

11 AC 

31 

C8 


IKB2: 

ACALL 

IKB6 



29 










30 






IFC 

NE,KBC-.EK •“ KBC_DK - 

1 


31 






.eRRpR. . 

... ?. :'.T h. i ?.. CQ . .w i.U.. o.o t . 

work' 


32 






ENDC 




..33 

JIA^ 

74 

SB ... 



Mqv 

A, #KBg_,DK 



34 

Ilk) 

20 

IF 

01 


JB 

KBDISF, IKB3 

? 

IF keyboard disabled THEN 

.35. 

.U.B3.... 

,.. .04. 




INC . . 

...A. 


e n a 1? 1 e k e 'v' |:« <;• ?i.r. d. 

36 

37 

11B4 

31 

C8 


IKB3: 

ACALL 

IKB6 



38 






IFC 

NE,KBC_DC - KBC_EC - 

1 


39 






.ERR.QR.., 

•-This cod^ will n.ot. 

work ■ 


40 






ENDC 




41 

.11.B6. 

74 

82 



MOV 

A, #KBC EC 



42 

11 B8 

20 

33 

01 


JB 

CLKF, IKB4 

; 

IF key click disabled THEN 

43 

1 IBB 

04 




INC 

A 


output no key click . 

44 

IIBC 

31 

C8 


IKB4: 

ACALL 

IKB6 



45 










46 






IFC 

NE,KBC_DR - KBC_ER - 

1 


..47. 






.E.RR.QR 

•-■This code will not 

work' 


48 






ENDC 




49 

.I.IP.E... 

...7.4. 

86 



MOV 

...A^..#KBC..,RR. 



50 

1 ICO 

20 

34 

01 


JB 

REPF, IKB5 

; 

IF auto repeat disabled THEN 

51 

11C3 

04 




INC 

A 

; 

no auto repeat 

52 

11C4 

31 

C8 


IKB5: 

ACALL 

IKB6 



53 










54 

11C6 

74 

80 



MOV 

A, #KBC_ID 

; 

Have it send it - s ID number 

55 

lies 

02 

.p26jD... 


IKB6: 

JMP 

..PCK?. 
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.J. 




, . 

.TERMINIT - terminal initialization 

2 

4 

.5 




; 

. *TERMINIT* initializes the terminal for ZDS and ANSI 

emulation mode. This places the terminal in whatever mode 
.the terminal must be in to emulate those modes. 

6 ; ’ . 

.7.;. 

8 

9 




” 

ENTRY 

none 

10 

. XI 




* 

EXIT 

none 

12 

13 




7 

USES 

ail 

14 

15 

.I.IC-I?... 

53 

21 FO 

TERMINIT: 

ANL 

ATTRIBUTES, #OFOH ; Clear attributes 

16 

17 

IICE 

11 DO 

D2 

D2 

IB 

25 


SETS 

SETB 

ERM ; Set erasure mode 

GATM ; Set guarded area xmt mode 

18 

19 

11D2 

80 

04 


SJMP 

HIR ; Clear protected and return 

20 ■' ' . 

.21. 

22 





.HAZINIT 

.- H.aser 11 i ne initial i zat ion 

24 





.«:HAZ7NIT* . ini t ial.izes .the terminal for the Hazel tine 1500 

26 

..27 





emulation mode. This places the terminal in whatever mode 
. . . the terminal must be in to emulate the Hazel tine 1500. 

28 

29 







30 

31 




7 

ENTRY 

none 

32 

OO 

.Vi-’. 




7 

EXIT 

none 

34 




" 

USES 

ai 1 

36 

37 

11D4 

D2 

OB 

HAZINIT: 

SETB 

HALFIA ? Starts in background 

38 

39 

11D6 

11D8 

D2 

75 

IB 

3F 00 

HIR: 

SETB 

MOV 

ERM ; Reset erasure mode 

PFIELD, #0 ; No protected fields 

40 

IIDB 

22 



RET 



c c c 


c c c 


c c 


c c c 
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1 ? 5 

STARTDMA - start psuedo DMA transfer 


2 5 

? 

■«-STARTDMA* can only be interrupted bv the 

stop DMA routine. 

4 ; 

it is initiated by push ins the address to 

start DMA onto the 


stack and ins a -RET-. The hardware takes oyer and. 

executes an instruction that is hard wired to the data bus 
and initiates reads from .th^. .vi.^?.?. . I-.’-.', . .Q^'.T. .'“.9.ntr.9.1 


8 ’ 

9 ? 


10 

11 




• 

7 

7 

ENTRY 

none 



12 

13 




m 

7 

7 

EXIT 

none 



14 

15 




7 

USES 

none 



16 

17 11DC 

CO 

DO 


STARTDMA: 

PUSH 

PSW 

. 

Save processor status . . 

18 11DE 

19 11EO 

CO 

CO 

EO 

FO 



PUSH 

PUSH 

ACC 

B . 



20 

'71 1 1F2 

75 

A8 

82 


MOV 

IE7..#IfDMA . 

. 

Select i n t e p.r u.p t.§. f p.r. .DMA . 

22 11E5 

23 

D2 

B4 



SETB 

DMATYPE 

7 

Set t'vpe for DMA transfer 

24 11E7 

25 11E9 

E5 

70 

09 

05 



MOV 

JNZ 

A, DMLNA 

SDl . 

• 

7 

IF DMA for line #0 THEN . 

26 llEB 
•77 1 1 FF 

30 

C2 

24 

92 

02 


JNB 

CLR 

VSPF, SDl 

VSP 

7 

7 

IF no suppression THEN 

a 1 way s turn v i d.e o.. o.n. 

28 

29 UFO 

30 11F2 

11F4 

CO 

CO 

75 

OB 

OA 

SC 

FF 

SDl: 

PUSH 

PUSH 

MOV 

DMADRL 

DMADRH 

THO, #OFFH 

7 

7 

7 

onto the stack 

32 11F7 

.S3..UFA .. 

34 IIFC 

’ ’"75. 

.8A. 

S^lC 

D6 


MOV 

$ETP 

TLO, #0D6H 

TRO . 

7 

7 

For 80 characters 

Start timer runnj.n?*. 

. . . M-f- . 

32 




RETI 


7 

Start psuedo DMA 
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2 "-2 

? COMF'L 

TER 

TERMINAL 

firmware 

VERS.I.QN..1,0.3. 




1 






STOPDMA 

- stop psuedo DMA transfer 

2 






■w-STOPDMA* is the other half of 

the DMA transfer routine. 

4 





■ 

It stops the timer, cleans the 

stack, sets --DMATYPE- to it's 

. 





7 

normal 

value, and enables inte 

rrupts. If it was filling memorv 

6 





? 

then it 

finishes up that otherwise it continues and calculates 

7 





7 

the next line number, address. 

and indexes for DMA. 

8 ; . 

9 ; 

10 





; 

ENTRY 

none 


11 





; 




12 

13 





. 

EXIT 

none 


14 






USES 

none 


15 









16 









17 

IIFD 

82 

8 C 


STOPDMA: 

CLR 

TRO 

’ Stop timer 

IS 

IIFF 

75 

AS 

95 


MOV 

IE, #IEINIT 

■ Reset interrupt enables 

19 








20 

1202 

20 

B4 

20 


JB 

DMATYPE, DM1 

? IF filling memory THEN 

21 

1205 

D2 

B4 



SETB 

DMATYPE 

? set —DMATYPE— to normal 

22 

1207 

DO 

83 



POP 

DPH 

" get last address from 

23 

1209 

DO 

82 



POP 

DPL 

" the stack 

24 

120B 

AD 

FO 



MOV 

TEMP, B 

; get remainder 

..4'v'. 

120D 

BD 

00 

01 


CJNE 

TEMP, #0, FILL 

■ IF nothing left THEN 

26 

1210 

32 




RET I 


; return 

27 

1211 

74 

20 


fill: 

MOV 

A, #••• 

* ELSE set UP and 


1213 


83 

CF 


ANL 

DPH, #DMAANL 


29 

1216 

43 

83 

10 


ORL 

DPH, #CHRORL 

; mask in to char memo rv 

30 

1219 

A3 



FLl: 

INC 

DPTR 

? REPEAT bump position 

31 

121A 

FO 




MOVX 

©DPTR, A 

* fi11 with spaces 

32 

121B 

53 

83 

EF 


ANL 

DPH, #ATRANL 

; mask into attribute mem 

33 

121E 

FO 




MOVX 

©DPTR, A 

; clear attributes 

34 

121 F 

43 

83 

10 


ORL 

DPH, #CHRORL 

; mask into char memorv 

35 

1222 

DD 

F5 



DJN2 

TEMP, FLl 

' UNTIL indexl = 0 

36 

1224 

32 




RET I 


; Return 

37 








38 









39 

1225 

75 

DO 

08 

DM1: 

MOV 

psw, #banh::i 

? ELSE select bank #1 

40 

41 

1228 

DO 

EO 



POP 

ACC 

? clean off stack 

122 A 

DO 

EO 



POP 

ACC 

42 

43 

122C 

09 




INC 

DMLN 

" bump current DMA line 

44 

45 

122D 

20 

39 

13 


JB 

FREQ, DMIA 

; IF 50 Hz THEN 

46 

47 

1230 

B9 

80 

ID 

02 


CJNE 

DMLN, #29, DMIB 

? IF line 29 THEN 

13 



SJMP 

DM2 

; wrap around 

48 

1235 

B9 

19 

00 

DMIB: 

CJNE 

DMLN,#NUMLINES, DM1C 

; ELSE IF line <= 25 THEN 

49 

1238 

40 

10 


DMIC: 

JC 

DM3 

; do usual stuff 

50 

51 

123A 
123D 

B9 

lA 

00 


CJNE 

DMLN,#NUMLINES+1, DM1D 


40 

1C 


DMID: 

JC 

DM4 

; ELSE IF line >= 26 THEN 

•_i2 

1 23F 
1241 

’D2 

92 



SETB 

VSP . 

" begin blanking 

53 

. tr' A ’ 

80 

18 



SJMP 

DM4 

54 









55 

1243 

B9 

19 

00 

DMIA: 

CJNE 

DMLN,#NUMLINES, DMIE 

; Check for wrap around 

56 

1246 

40 

02 


DMIE: 

JC 

DMS 

; i'F line > 25 THEN 

57 

1248 

79 

00 


DM2: 

MOV 

DMLN, #0 

■ wrap around 



c 


c 


€ 


c c c 


c c c c c 

































3 


3 


1 


0 


3 
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1 

2 

124A 

74 

47 

DM3! 

MOV 

A, #LORDER 

• 

ELSE set base of table 

3 

124C 

29 



ADD 

A, DMLN 

7 

add in offset 

4 

124D 

F8 



MOV 

DMPTR, A 

• 

move it into pointer 

5 

124E 

E6 



MOV 

A, ©DMPTR 

? 

get value from table 

6 

7 

124F 

75 

FO 

50 

MOV 

B, #NUMCHARS 

• 

7 

set UP for multiply 

S 

1252 

A4 



MUL 

AB 

7 

do it 

9 

1253 

F5 

OB 


MOV 

DMADRL, A 

7 

save low order bvte 

10 

1255 

E5 

FO 


MOV 

A, B 


get high order bvte 

11 

1257 

24 

60 


ADD 

A, #HIGH (DMAMEM) 

m 

7 

add offset 

12 

1259 


6a 


MOV 

DMADRH, A 

■ 

7 

save high order bvte 

13 









14 

12SB 

DO 

FO 

DM4! 

POP 

B 

; 

Restore registers and return 

15 

.125D 

DO 

EO 


POP 

ACC 



16 

125F 

'm 

DO 


.POP. 

'PSW ' 



17 

1261 

32 



RET I 
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. 1 ■ - 

. STFILL.“.start filling with 5 pa ce b 

2 ; 
.?!... ; 

. T.F J .Lrl-.*. .t ^.k $.s. . .t h.e n u m b e r 0 f c h a r a c t * r s a n d 1 n r a f j n n i n 

4 • 

v‘ ; 

screen meiTiorv and fills them with 20H and places the 
. .a.t t r.i.bM.tf.. . i.nt.c; ^ttribqt^ iriemorv. It takes intri 

6 ; 

. 7 5 

account the mode that ERM is in. 

. 

9 - 

. ENTRY_.(.A) = number of characters less than 127 

10 - 

11 ; 

(B) = attribute to write 

. (DF'TR) = character memory address to start fr-nm 

12 ; 

13 ; 

EXIT none 

14 ; 

15 ; 

. USES . A, B, DPTR, W0RK2, TEMP, INDX2, TIMER 0 


16 

17 


IS 1262 

19 1263 

20 

21 1265 

22 

23 1268 

FB 

AF 

...BF ... 

30 

FO 

.....QQ.... 

IB 

.?!P.... 

04 

STFILL: 

MOV 

MOV 

CJNE 

.unb ... 

INDX2, A 

W0RK2, B 

....W0RK5?..#0, SFB 

ERM, SFA 

; £.ave count 

.attr.ib.y. 

..!.. .IF. .a11 r.ibg.t.^?..THEN. .5f. 

_ ■ IF not erasure mode THEN 

24 

25 126B 

E5 

3F 



MOV 

A, PFIELD 

; IF protected fields THEN 

26 126D 

27 

70 

36 



JNZ 

SFB 

; special 

28 126F 

53 

83 

EF 

SFA: 

ANL 

DPH, #ATRANL 

; convert to DMA memory 

29 1272 

43 

83 

20 


ORL 

DPH, #DMAORL 


30 1275 

EB 




MOV 

A, INDX2 

; get count back 

31 1276 

23 




RL 

A 

; multiply by 2 

32 1277 

75 

FO 

03 


MOV 

B, #3 

; set UP for divide by 3 

33 127A 

84 




DIV 

AB 

" Place remainder in (B) 

34 127B 

C5 

FO 



XCH 

A, B 

; switch to work with (B) 

35 127D 

B4 

02 

06 


CJNE 

A, #2, SFl 

; IF remainder = 2 THEN 

36 i280 

05 

FO 



INC 

B 

; bump clock value 

37 1282 

74 

00 



MOV 

A, #0 

■ remainder := 0 

38 1284 

80 

07 



SJMP 

SF2 

; ELSE 

39 








40 i286 

B4 

00 

04 

SFl: 

CJNE 

A, #0, SF2 

“ IF remainder = 0 THEN 

41 1289 

74 

02 



MOV 

A, #2 

? remainder := 2 

42 i28B 

15 

FO 



DEC 

B 

; decrement clock count 

43 128D 

C5 

FO 


SF2: 

XCH 

A, B 

; switch back 

44 128F 

F4 




CPL 

A 

" take 2‘s complement of (A) 

45 1290 

04 




INC 

A 


46 








47 1291 

82 

AF 



CLR 

EA 

• disable interrupts 

48 1293 

00 




NOP 


" give time to clear 

49 1294 

75 

A8 

82 


MOV 

IE, #IEDMA 

; init for DMA 

50 1297 

C2 

B4 



CLR 

DMATYPE 

; set type for clear memory 

51 1299 

CO 

82 



PUSH 

DPL 

? push DMA start address 

d2 l2yB 

CO 

83 



.push" 

DPH 

■ onto the stack 

53 129D 

75 

8C 

FF 


MOV 

THO, #OFFH 

; set timer 0 

54 12A0 

F5 

8A 



MOV 

TLO, A 

; f 0 r n u m b e r 0 f c h a r a c t e r s 

55 12A2 

D2 

8C 



SETB 

TRO 

" start timer running 

56 12A4 

57 

22 




RET 


; start DMA 


ccc ccc cc c cc 
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1 

12A5 

E5 

3F 


SFB: 

MOV 

A, PFIELD 

; ELSE get protected fields . 

2 

12A7 

B4 

FE 

01 


CJNE 

A, #254, SF3 

; ELSE IF none protected THEN 

3 

12AA 

E4 




CLR 

A 

; set for none . . 

4 

5 

■l2AB 

■' FD. 



SF3: 

MOV 

TEMP, A 

" save value in -TEMP- 

6 

i2AC 

53 

83 

EF 

SFL: 

ANL 

DPH, #ATRANL 

; REPEAT mask to attribute 

7 

12AF 

EO 




MOVX 

A, ©DPTR 

? get current attribute . 

8 

12BC)‘ 

54 

OF 



ANL 

A, #000011118 

; mask data 

9 

12B2 

70 

05 



JNZ 

SF4 


10 

12B4 

BD 

80 

08 


CJNE 

TEMP, #80H, SF5 

; IF protected THEN skip 

11 

12B7 

80 

OE 



SJMP 

SF6 

; ELSE 

12 

12B9 

5D 



SF4: 

ANL 

A, TEMP 

; mask with protected 

13 

12BA 

B5 

05 

02 


CJNE 

A, TEMPA, SF5 

; IF protected THEN 

14 

15 

12BD 

80 

08 



sJmp 

SF6 

; skip 

. 16 

12BF 

EF 



SF5: 

MOV 

A, W0RK2 

■ get attribute to write 

17 

12C0 

FO 




MOVX 

©DPTR, A 

; write attribute out . 

18 

12C:l 

43 

83 

10 


ORL 

DPH, #CHRORL 

? mask to character memorv 

19 

12C4 

74 

20 



MOV 

A, #•' •' 

; get space to write . 

20 

12C6 

FO 




MOVX 

©DPTR, A 

; clear character 

21 

12C7 

A3 



SF6: 

INC 

DPTR 

; bump pointer 

22 

12C:8 

DB 

E2 



DJNZ 

iNDX2, SFL 

; UNTIL done 

23 

12CA 

22 




RET 
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.SER.IAL 

— s r i a 1 p 0 r t I n t ^ r r g p t 

r 0 u t i n e 

2 




.7 . 

.;*.SERIAI, 

. pr-.o.cfe5?.^?. .a.13. . j= 

none 


4 

.. 

6 

. 7 




. .?. 

7 

ENTRY 


8 

... 9 




; 

EXIT 

none 


10 

11 




? 

USES 

none 


12 

13 12CB 

CO 

DO 


SERIAL: 

PUSH 

PSW 

5 Save registers 

14 12CD 

CO 

EO 



PUSH 

ACC 


. 15 12C:F 

CO 

FO 



PUSH 

B 


16 12D1 

CO 

82 



PUSH 

DPL 


. 17 12D3 

... .CO 

83 



PUSH 

DPH 


18 12D5 

20 

98 

05 


JB 

RI, SERIN 

; Check receiver interrupt 

. 19 12D8 

20 

99 

38 


JB 

TI, SEROUT 

...'..Check transmit interrupt 

20 12DB 

21 

80 

3A 



SUMP 

SRT 

• This should never happen 

22 12DD 

75 

39 

00 

SERIN: 

MOV 

ALlfoCNT, #0 


. 23 12E0 

D2 

24 



SETB 

VSPF 

“ Change auto off 

-:i4 l2Ej{^ 

C2 




CLR 

RI 

; Clear receiver int flag 

25 12E4 

E5 

99 



MOV 

A, SBUF 

; Get character 

26 i2E6 

54 

7F 



ANL 

A. #0111 111 IB 

; Mask off parity 

27 12E8 

20 

43 

02 


JB 

HAZ, SIO 

; IF not Hazel tine THEN 

28 12EB 

29 

60 

2A 



JZ 

SRT 

; IF null THEN exit 

30 12ED 

20 

23 

03 

SIO: 

JB 

PRNTF, SIl 

; IF not printing THEN 

31 12F0 

30 

2E 

24 


JNB 

ONLINE, SRT 

? IF offline THEN exit 

32 12F3 

B4 

13 

OB 

SIl: 

CJNE 

A, #XOFF, SI2 

; IF -XOFF- received THEN 

33 12F6 

20 

23 

06 


JB 

PRNTF, SIIA 

‘ IF not printing THEN 

34 12F9 

20 

42 

05 


JB 

AbM3, SI2 

; IF ADM 3A THEN skip . 

35 12FC: 

20 

43 

02 


JB 

HAZ, SI2 

; IF Hazel tine THEN skip 

•36 12FF 

D2 

16 


SIIA: 

SETB 

XOFFRCVED 

; flag for XOFF . 

37 1301 

B4 

11 

02 

SI2: 

CJNE 

A, #XON, SI3 

; IF -XON- received THEN 

38 1304 

C2 

16 



CLR 

XOFFRCVED 

; flag for no XOFF 

39 1.306 

20 

23 

OE 

SI3: 

JB 

PRNTF, SRT 

" IF printing THEN exit 

40 1.309 

12 

OICA 



LCALL 

PCIF 

; Put character in input FIFO 

41 1.30C 

30 

D5 

08 


JNB 

FO, SRT 

; IF -XOFF- needed THEN 

42 136F 

"vV' 

C4 



ACALL 

bbXOFF 

; send an —XOFF— and exit 

43 1311 

80 

04 



SJMP 

SRT 


44 

45 1313 

C2 

99 


SEROUT: 

CLR 

TI 

" Clear transmit int flag 

46 1315 

47 

D2 

13 



SETB 

OKTRANS 

; Set ok to transmit 

48 13i7 

DO 

83 


SRT: 

POP 

DPH 

; Restore registers 

49 1319 

DO 

82 



POP 

DPL 


•50 1316 

do' ’ 

FO 



POP 

B 


51 131D 

DO 

EO 



POP 

ACC 


52 131F 

DO ' 

DO 



POP 

PSW 


53 1321 

71 

26 



ACALL 

SRTl 

" Double check 

54 i323 

D2 

AF 



SETB 

EA 


55 1325 

... 2 . 2 .. 




RET 



56 1326 

C2 

AF 


SRTl: 

CLR 

EA 


. 57 1328 

32 




RET I 


; And return 


c 


c 


€ 


c c c 


c 


c 



€ 


C 


































3 3 3 3 3 


3 3 3 3 
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1 





. . 

IRQ - 

interrupt request 


2 

3 





: 

#IRQ-«- 

is executed when the CRTC starts to display the 25th 

4 





; 

1 ine. 

At this point the DMA line 

number must have been set 

Clj 





; 

to zero or some error has occured 

. This routine is a safety 

6 





; 

check 

for any such errors and will take at most one frome to 

7 





5 

straighten out anv such errors. 

It also takes care of any 

.8' 

'9 





■ 

c 1 0 c k. 

timing and b 1 i nk. i ng. 


10 





; 




11 





; 

ENTRY 

none 


12 





; 




13 





; 

EXIT 

none 


14 





; 




15 





; 

USES 

none 


16 









17 









18 

1329 

CO 

DO 


IRQ: 

PUSH 

PSW ; 

Save registers 

19 

132B 

CO 

EO 



PUSH 

ACC 


20 

132D 

CO 

FO 



PUSH 

B 


21 

132F 

CO 

82 



PUSH 

DPL 


22 

1331 

CO 

83 



PUSH 

DPH 


23 









24 

1333 

75 

09 

00 


MOV 

DMLNA, #0 ; 

Safety check 

25 









26 

1336 

31 

84 



ACALL 

CURSOR ; 

Display cursor 

27 









28 

1338 

90 

2001 



MOV 

DPTR, #DSTAREG 


29 

133B 

EO 




MOVX 

A, @DPTR ; 

C1 ear any CRTiI: flags 

30 









31 

133C 

05 

38 



INC 

BLNKCNT ; 

Bump blink count 

;“;2 

133E 

E5 

37 



MOV 

A, BLNKRATE 


33 

1340 

60 

10 



JZ 

IRQ2 ; 

IF not zero OR 

34 

1342 

B4 

FF 

02 


CJNE 

A, #OFFH, IRQl ; 

IF not full count THEN 

35 

1345 

80 

OB 



SUMP 

IRQ2 


36 

1347 

B5 

38 ■ 

08 

IRQl: 

CJNE 

A, BLNKCNT, IRQ2 ? 

IF time to blink THEN 

37 

134A 

75 

38 

00 


MOV 

BLNKCNT, #0 ? 

reset count 

38 

134D 

B2 

01 



CPL 

BLINKF ; 

toggle blink flag 

39 

134F 

12 

lElS 



CALL 

WLATCH 


40 









41 

1352 

05 

3A 


IRQ2: 

INC 

TCNT ; 

Bump time, count 

42 

1354 

E5 

3A 



MOV 

A, TCNT 


43 

1356 

20 

39 

05 


JB 

FREQ, IRQ3 ? 

IF 50 Hz AND 1 second OR 

44 

1359 

B4 

32 

34 


CJNE 

A, #50, IRQ5 


45 

135C 

80 

03 



SJMP 

IRQ4 ; 

IF 60 Hz AND 1 second THEN 

46 

135E 

B4 

3C 

2F 

IRQ3: 

CJNE 

A, #60, IRQ5 


47 

1361 

75 

3A 

00 

IRQ4: 

MOV 

TCNT, #0 

initialize count 

48 

1364 

05 

3B 



INC 

TSEC ; 

bump seconds 

49 

1366 

E5 

3B 



MOV 

A, TSEC 


50 

1368 

B4 

3C 

25 


CJNE 

A, #60, IRQ5 ; 

IF one minute THEN 

51 

136B 

30 

3B 

OB 


JNB 

SCRNSAVE, IRQ4A ? 

IF screen saver THEN 

52 

136E 

05 

39 



INC 

AUTOCNT ; 

bump auto off 

Pi 3 

1370 

E5 

39 



MOV 

A, AUTOCNT 


54 

1372 

B4 

OF 

04 


CJNE 

A, #15, IRQ4A 

IF saver time up THEN 

55 

1375 

C2 

24 



CLR 

VSPF ? 

flag it is off 

56 

1377 

D2 

92 



SETB 

VSP ? 

and turn off display 


. 57 . 
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1 1379 

2 137C 

3 137E 

75 

05 

E5 

3B 

3C 

3C: 

00 

IRQ4A: 

MOV 

INC 

MOV 

TSECt #0 

TMIN 

At TMIN 

T initialize seconds 

T bump minutes 

4 1380 

B4 

3C 

OD 


CJNE 

A, #60T IRQ5 

; IF one hour THEN 

5 1383 

75 

3C 

00 


.MQV 

TMINt #0 


6 1336 

05 

3D 



INC 

THOUR 

T bump hours 

7 1388 

E5 

3D 



MOV 

At THOUR 


8 138A 

B4 

18 

03 


CJNE 

At #24 t IRQ5 

? IF 24 hours THEN 

9 138D 

75 

3D 

00 


MOV 

THOURT #0 

" initialize hour«i 

id 

11 1390 

DO 

83 


IRQ5: 

POP 

DPH 

.".Restore registers and return 

12 1392 

DO 

82 



POP 

DPL 


13 1394 

DO 

FO 



POP 

B 


14 1396 

DO 

EO 



POP 

ACC 


15 1398 

DO 

DO 



POP 

PSW 


16 139A 

32 




RET I 




c c c c c c c c c c c 





































3 


3 


1 


3 


3 


3 3 


3 


3 
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1 


. . 

TRANSMIT - transmit to host 


2 

3 


; 

^-TRANSMIT* waits for an empty output 

holding resister» sets 

4 

5 


; 

paritY» 

and outputs the character to 

the serial port. 

6 

7 


! 

ENTRY 

(A) = character to output 


.$:■ 

9 


7 

7 

EXIT 

(A) = character with correct 

parity 

.iO' 

11 


7 

USES 

A 



i2 


. i'4' 

15 

139B 

20 

16 

FD 

••••TRANSMIT: ■■■■■ 

JB 

• • -XOFFRCVEb; • TRANSMIT • • • 

ft 

7 

Wait until no -XOFF- 

.i6' 

1 

• • d3 . 



fRANS: 

CLR 

C 

* 

Start with no parity 

17 

139F 

30 

28 

OA 


JNB 

PRTYENA, TRA 

? 

IF parity enabled THEN 

18 

13A2 

D3 




SETB 

C 

* 

do set parity 

19 

13A3 

20 

29 

06 


JB 

PRTYSTK, TRA 

; 

IF not stick parity THEN 

20 

13A6 

A2 

DO 



MOV 

C, P 

; 

do even parity 

21 

13A8 

20 

2A 

01 


JB 

PRTYEVN, TRA 

; 

IF not even parity THEN 

22 

13AB 

B3 




CPL 

•••C!: . 

” 

do odd parity 

23 

13AC 

92 

E7 


TRA: 

MOV 

ACC.7, C 

; 

Put in parity bit 

24 









IF ok to transmit OR 

25 

13AE 

20 

13 

03 

TRW: 

JB 

OKTRANS, TROK 


26 

13B1 

30 

99 

FA 


JNB 

fi, TRW 

* 

IF transmit buffer empty THEN 

27 

13B4 

20 

02 

03 

TROK: 

JB 

PORTF, TROKl 

; 

IF auxiliary port OR 

28 

13B7 

30 

3E 

03 


JNB 

HNDSHK, TR0K2 

; 

IF hardware handshake THEN 

29 

13BA 

20 

B5 

FI 

TROKl: 

JB 

CTS, TRW 

; 

IF not CTS THEN do asain 

30 

31 

13BD 

C2 

99 


TR0K2: 

CLR 

TI 

; 

clear buffer empty flap 

32 

13BF 

C2 

13 



CLR 

OKTRANS 

* 

make not ok to transmit 

33 

13C1 

F5 




MOV 

SBLIF, A 

; 

output data 

34 

13C3 

22 




RET 
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1 




. . 

DOXOFF 

— do send XOFF to ho«it 







#ElOXnFF# riufcan i nci Ha+-a a r. H 11 +• oi i +• e a r. vriircr 4-^. 

4 

ITj 




. 

setting 

the proper flags. 


6 

7 




. 7 

. ENTRY 

. n.Q n . 


8 

9 




. 

EXIT 

none 


10 

11 




; 

USES 

A 


12 . 

13 

14 

15 

13C4 
13C7 

20 

D2 

10 

10 

lA DOXOFF: 

JB 

SETB 

XOFFSENT, SXR 

XOFFSENT 

; IF XOFF already sent THEN exit 
■ Flag that handshake lun«; linne 

16 

17 

13C9 

30 

3E 

05 

JNB 

HNDSHK, XMTXOFF 

; IF hardware handshake THEN 

18 

19 

13CC 
13CE 

D2 

D2 

95 

94 


SETB 

SETB 

RTS 

DTR 

7 set handshake lines 

20 

21 

13D0 

22 



RET 




13D1 

13D3 

74 

61 

13 

9E 

XMTXOFF: 

MOV 

AJMP 

A, #X0FF 

TRANS 

7 ELSE output an XOFF 

; trancilTiit it anri rctiirr. 

25 

27 

28 

29 




7 

DOXON - 

do send XON to host 


30 

31 




5 

7 

■K-DUXON# preempts outgoing data and outputs an XON to host 

32 

33 




7 

7 




34 

35 




• 

7 

7 

ENTRY 

none 


36 

37 




7 

• 

7 

EXIT 

none 


38 

39 





USES 

A 


40 

41 

13D5 

30 

10 

09 BOXon: 

JNB 

XOFFSENT, SXR 

; IF no XOFF sent THEN exit 

42 

43 

13D8 

C2 

10 


CLR 

XOFFSENT 

7 Clear flag on handshake 

44 

45 

13DA 

13DD 

30 

C2 

3E 

95 

05 

JNB 

CLR 

HNDSHK, SXONl 

RTS 

7 IF hardware handshake THEN 

7 clear handshake lines 

46 

47 

13DF 
13E1 

C2 

22 

94 

SXR: 

CLR 

RET 

DTR 


48 

49 

13E2 

20 

11 

FC SXONl: 

JB 

UXOFFSENT, SXR 

; IF no user XOFF THEN 

50 

51 

13E5 
13E7 

74 

61 

11 

9E 

XMTXON: 

MOV 

AJMP 

A, #XON 

TRANS 

? send an XON 

7 transmit it and return 



c 


c 


C C C c 


€ C € 


C 
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1 ■; LOOKUP - table Iciokup and Jump 


2 

3 





7 

^LOOKUP# looks for the entr- 

•• in the 

table passed to it. 

If 

4 

5 





7 

7 

found the return address is 
routine. If not found then 

removed 
the main 

and control given to 
table is searched. 

the 

If 

6 

7 





7 

7 

found the return address is 
routine. If not found then 

removed 
contro1 

and control given to 
is given back to the 

the 

8 

9 





7 

cal 1 ins 

routine . 




10 

11 





; 

ENTRY 


(B) = table length 




12 

13 





7 



(DPTR) == beginning • 

• f table 



14 

15 






EXIT 


return if not found 

in tables 


i'6 

17 





’ 

USES 


al 1 




. is 

19 

13E9 

91 

04 


lookup: 

ACALL 


XSTABX 

; Search users table 


20 

21 

l:3EB 

13ED 

50 

75 

OB 

FO 

13 


JNC 

MOV 


LKIJPI 

B, #LOTL 

; IF 

not found THEN 


22 

23 

13F0 

13F3 

90 

91 

1432 

04 



MOV 

ACALL 


DPTR, #LOT 

XSTABX 

7 

search main table 


24 

13F5 

13F7 

50 

01 



JNC 

RET 


LKUPl 


IF not found THEN 
return 


26 

27 

13F8 

DO 

EO 


LKLIPI: 

POP 


ACC 

. 

ELSE found THEN 


*79 

13FA 

13FC 

DO 

E4 

EO 



POP 

CLR 


ACC 

A 


remove return address 

30 

13FD 

73 




JMP 


QA+DPTR 

; 

Jump to routine 
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XSTX . r:. transm.i t. strins . to. .1 i.ne. .25. .f oI 1 ouj.ins CALL 


4 


6 

..7. 

8 i3FE 02 1B9D 

..9 . 

10 

.11. 

12 

.13. 

14 

.15. 

16 

.17. 

is 

.19 . 

20 1401 02 IBAS 

21 . 


^.X^.TX* . .i.5. .4 u.mp.. to. .th.^. .r;o.qt.i.n.e . .*XST*.-.... .It. .i ?.. . .t«;•..?.'^Y.€:., 

bvtes so that routines mav use a short Jump to here instead 
.b.F .?»... .l.Qn.9. .4u.mp.. t.Q . .th.e . .ot.hf .r . .r.o.u.t .i.ne.. 


XSTXs LUMP XST 


Jump to routine 


.XSTAT.X . r.. tr ansmi.t. .s t.r i.H?.. t.q . .1.i .ne. .25 

*XSTATX# . is. .a. .J ump.. to. .the. .rq.ut.i.n.e .^XSTAT*. .It. .i s used .to. 
save bvtes so that routines mav use a short Jump to here 
Ins.te.ail .of a .l.qn.e. .J u.mp.. to. .the .ot.he.r .ro.u.t ine. 


XSTATXs LUMP XSTAT 


Jump to routine 


.23. 

24 

.25 

26. 

27 . 

28 

29 

30 . 

.31. 

32 1404 02.biSA 

33 . 


.5."..XSJ.AB.X . - . .c.h. .tab .1 .q. 

.".f.XSTA.BX* . .is. .a. .J u.mp.. to. .t h.e. .r o.u t.i. ne. .^.STAB#.. It., i.s .u s.e'd t.q 

■ save bvtes so that routines mav use a short Jump to here 

7.i.ni^.t.ea.d. .of..a.. 1 .qn.g. J.u.mp. t.q . .the . .o.t.her . rou.t i.ne,. 

XsTABX: LUMP STAB ; Jump to routine 


c c c 


c c c 


c c c c 


c 
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1 




. . 

SFCKB - 

setup fetch character 

from keyboard 

3 




5 

*SFCKB# 

waits for characters 

from the keyboard. It does . 

4 




t 

not return until a character 

is returned. All access codes 

5 




7 

and the 

characters that follow are dropped. . 

6 

7 




7 

7 




8 

9 




7 

7 

ENTRY 

none 


10 

1 1 




7 

m 

7 

EXIT 

(A) = character from 

keyboard 

12 

13 




7 

USES 

A, B, DPTR 


14 

15 

1407 

12 

02B6 

SFCKB: 

CALL 

FCKB 

; Wait for key . 

16 

17 

140A 

140C 

40 

B4 

FB 

9F 

07 

JC 

CJNE 

SFCKB 

A, #KB^ACC, SFCKB2 

; IF access code THEN . 

18 

19 

140F 
1412 

12 

40 

02B6 

FB 

SFCKBl: 

CALL 

JC 

FCKB 

SFCKB1 

• d r o p next c h a r a c t e r 

20 

21 

1414 

1416 

80 

22 

FI 

SFCKB2: 

SJMP 

RET 

SFCKB 

" and keep on going 

; ELSE return . 
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. X. 




.SETUP1 

- set UP m 0 d e line #1 


.*-! 



. 

..^SETUPl*. runs the terminal «ietiip 

mode propram. 

4 

.5 







6 

.7 



. 

ENTRY 

none 


8 

9 



. 

EXIT 

none 


10 

.11 




USES 

ai 1 


12 

13 

1417 

20 

.93. 01 SETUPS 

•JB 

SETLCKv SETUPO ; 


14 

15 

141A 

22 


RET 



16 
17 

141B 

12 

1B2C SETUPO: 

CALL 

SCLrLr ; 

Setup clear line reverse 

18 

19 

141E 

1420 

91 

.. 9X .... 

6E SETUPl: 

.07...5TP1A- 

ACALL 
.ACALL 

LI 

SFCKB ; 

Display first line 

20 

.21. 

1422 

.1.4.25.. 

75 

... .90 ... 

FO 01 

.14.6B.. 

MOV 

. MOV 

B, #L1TL 

..PPTR...#L.1T. 


.23. 

1423 
.1.42A... 

71 

80 

E9 

.F4 .. 

ACALL 

.scrip.... 

LOOKUP ; 

..STPIA. ; 

Lookup command 

Keep on poinp 

24 

25 







26 

27 




T 1 e 

on/off line 


28 

29 

30 

31 

142C: 
142E 
1430 

B2 

31 

80 

2‘e STPIB: 

9E 

EC 

CPL 

CALL 

SUMP 

OIMLINE ; 
INITKB ; 
SETUP1 

Topple on/off line 

Rec 0 nfipur keyboard 

33 







34 



,, 

.LOT - every line table 


36 

37 



■ 

•»-LOT* contains the Jump table for 

every line- 

33 

39 


1432 

. LOT 

EQU 

$ 


40 

41 

42 

43 

1432 

1433 

OD 

141E 


DB 

DW 

CR 

SETUP 1 ; 

Main setup line 

44 

45 

1435 

1436 

61 

141E 


DB 

DW 

a •' 

SETUP 1 ; 

Main setup line 

46 

47 

1433 

41 


DB 

-A- 


43 

49 

1439 

141E 


DW 

SETUPi 

Main setup 1 ine 

50 

51 

143B 
143C 

74 

14D7 


DB 

DW 

•'t' 

SETUP2 ; 

Set tabs 

52 

53 

143E 

54 


DB 

•-T' 


54 

55 

143F 

14D7 


DW 

SEtUP2 

Set tabs 

56 

57 

1441 

1442 

62 

1542 


DB 

DW 

•'b- 

SETUPS ; 

Protocol #1 


c c c c c c c c c c c 






































3 


3 5 3 3 3 


3 3 3 3 3 
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1 . 

2 

1444 

42 


DB 

"B- 


3 

1445 

1542 


DW 

SETUPS ; 

Protocol #1 

4 







5 

1447 

63 


DB 



6 

1448 

16B0 


DW 

SETUP4 ; 

Protocol #2 

7 







8 

144A 

43 


DB 

•c- 


9 

144B 

16B0 


DW 

SETUP4 ; 

Protocol #2 

io 







11 

144D 

64 


DB 

••• d ••• 


12 

144E 

1795 


DW 

SETUPS ; 

Misc #i 

13 







14 

1450 

44 


DB 

-D- 


15 

1451 

1795 


DW 

SETUPS ; 

Misc #1 

16 







17 

1453 

65 


DB 

e 


18 

1454 

1865 


DW 

SETUP6 

Keyboard 

19 







20 

1456 

45 


DB 

•'E-' 


21 

1457 

J.865. 


DW 

SETUP6 ; 

Keyboard . 


1459 



..DB. 

■ f 


24 

145A 

18F4 


DW 

SETUP7 ; 

Misc #2 

26 

145C 

46 


DB 

-F- 


27 

145D 

18F4 


DW 

SETUP7 ; 

Mis c #2 . 

29 

145F 

tJ 


DB 



30 

31 

1460 

19DD 


DW 

SETUPS ? 

Misc #3 


1462 

47 


DB 

-G- 


33! 

1463 

19PP 


DW 

SETUPS ; 

Misc #3 . 

.34' 







35 

1465 

33 


m . 

...KB„3KTWP.?. 

Setup key . 

36 

1466 

1AF6 


DW 

SETUPRET ; 

Return 

37 







3.3 

1468 

08 


DB 

KB_SETUP + KB_SHFT ? 

Shift setup key 

:-:9 

1469 

1B02 


DW 

SETUPSAVE 5 

an return ... 

40 







.4X 


... P.Q 1.3. 

LOTL 

.F,QU 

($-L0T)/3 ; 

Table #0 length .. 

42 







43 







44 







45 







46 



; ; 

LIT - 

line #1 tab 1 e 


47 







48 



; 

*L1T# 

contains the Jump table tor 

line #1 in setup mode. 

49 







50 

51 


146B 

LIT 

EQU 



52 

146B 

31 


DB 

••• 1 ••• 

Option #1 

53 

146C 

142C 


DW 

STPIB 

Toggle on/off line . 

54 







55 


,.. .QOQ1. 

.LJIL. 

.£QU.... 

...(«tLIT)/ 3.r 

. .T?..b.l.^. .l.^Ti^.th. 


56 

57 
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1 . 

2 


3 




7 7 

LI - line #1 

4 




7 



5 




7 

*L1* displays setup information for line #1. 

6 




7 



7 




• 



8 




; 

ENTRY 

none 

9 




; 



10 




; 

EXIT 

none 

11 




; 



12 




; 

USES 

all 

13 







14 







15 146E 

E4 



Li: 

CLR 

A ; Position 

16 







17 146F 

71 

FE 



ACALL 

XSTX 

IS 1471 

2A 

2A 

20 


DB 

SETUP MENU A ## (Ver 1.03) I.-', < ' •'+SOH) 

1474 

53 

45 

54 




1477 

55 

50 

20 




147A 

4D 

45 

4E 




147D 

55 

20 

41 




1480 

20 

2A 

2A 




1483 

20 

20 

28 




1486 

56 

65 

72 




1489 

20 

31 

2E 




148C 

30 

33 

29 




i48F 

20 

20 

20 




1492 

31 

2E 

AO 




19 







20 1495 

90 

14C7 



MOV 

DPTR, #LN1B1 

21 1498 

20 

2E 

03 


JB 

ONLiNEj LIA 7 Get proper message for 

22 149B 

90 

14CF 



MOV 

DPTR, #LN1B2 ? on/off line 

23 149E 

91 

01 


LIA: 

ACALL 

XSTAJX ; Next part ■■ 

24 







25 14AO 

71 

FE 



ACALL 

xsii 

26 14A2 

20 

20 

20 


DB 

MENUS -A- to -G- or -T~ for TABS i'S-'+BOH) 

i'4AS 

20 

4d 

45 




14A8 

4E 

55 

53 




.i4AB' 

20 

2D 

41 




14AE 

2D 

20 

74 




14B1 

6F 

20 

2D 




14B4 

47 

2D 

20 




i467 ■■■ 


. 72 . 

■ ’26' ■ ■ ■ 




14BA 

2D 

54 

2D 




i4Bt3 

‘20 ■' 

6'6 

■ ■ 6F. 




14C0 

72 

20 

54 




i4tcJ 

41 

42 

■ ■ 'DS ■ ■ 




27 







28 14C6 

22 




RET 


29 







30 





Line #1 

setup mode messages 

31 




? 



32 14C7 

6P 

66: 

'20 . 

LNlBl: 

DB 

•'on 1 ine-S (•' •'+80H') 

14CA 

6C 

69 

6E 




.i4CD ■■ 

65 

AO 





33 14CF 

6F 

66 

66 

LN1B2! 

DB 

•'off lin'7 ("e-'+SOH) 


c 


€ 


C 


c c c 


c c c c 


c 












































3 


3 


3 


3 


3 


3 > 
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14D2 20 6C 69 

141 !)^. 6 £’.. 


3 
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1 




" ? 

SETUP 

2 - setup mode line #2 






? 

.#SETUP2-»- is the setup mode line for set/clear tabs. 

4 




; 

-PTR2 

- is used as the cursor 

position. 

6 

7 





ENTRY 

none 


8 

9 





EXIT 

none 


10 

11 




; 

USES 

al 1 


12 . 

13 

14 

15 

14LI7 

14D9 

79 

B1 

00 

OD 

SETUP2: 

STP2A: 

MOV 

ACALL 

PTR2, #0 

L2 

; -PTR2- is cursor position 
" Display line #2 

16 

17 

14DB 

14DD 

91 

75 

07 

FO 04 

STP2BS 

CALL 

MOV 

SFCKB 

B, #L2TL 

• Fetch character from keyboard 

18 

19 

14E0 

14E3 

90 

71 

1501 

E9 


MOV 

ACALL 

DPTR, #L2T 

LOOKUP 

; Look UP command 

20 

21 

14E5 

80 

F4 


SUMP 

STP2B 

• Keep on soing 

22 

23 





Move 

left 


24 

25 

14E7 

19 


STP2CS 

DEC 

PTR2 

; Decrement 

26 

27 

14E8 

14EB 

B9 

09 

FF 01 


CJNE 

INC 

PTR2, #(0-1), STP2C1 
PTR2 

7 IF wrap around THEN 
? bump back up 

28 

29 

14EC 

80 

EB 

STP2C1; 

SUMP 

STP2A 

7 keep going 

30 

31 




- 

Move 1 

r i 9 h t 


32 

14EE 

09 


7 

STP2D: 

INC 

PTR2 

7 Bump 

34 

35 

i4EF 

14F2 

B9 

19 

50 6l 


CJNE 

DEC 

PtR2, IlSO, srP2Di 

PTR2 

7 IF wrap around THEN 

7 bump back down 

36 

37 

i‘4F3 

80 ’ 

£4 

STP2D1: 

SJMP 

STP2A 

7 keep going 

38 

39 




- 

Set tab 


40 

41 

14F5 

D2 

D5 

STP2E: 

SETB 

FO 


42 

43 

14F7 

80 

02 


SJMP 

STP2F1 

7 Set tab 

44 

45 




■ 

Clear 

tab 


46 

47 

. 

14F9 

C2 

D5 

? 

STP2F: 

CLR 

FO 


48 

49 

i4F'B' 

14FC 

E9 

12 

05A2 

STP2F1: 

MOV 

CALL 

A, PTR2 

SETTAB 

7 Uet position 

7 Set/clear tab 

50 

51 

i4ff 

80 

D8 


SJMP 

STP2A 

7 keep going 

52 . 

53 

54 

55 




? 7 

L2T - 

line #2 table 


56 

57 




7 

7 

*L2T* 

contains the Jump table 

for line #2 in setup mode. 


c C C C C C c c c c c 
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1 . 

•7 


1501 

L2T 

EQLI 



3 







4 

1501 

82 


DB 

KB^LEFT 

? Cursor left 

5 

1502 

14E7 


DW 

STP2C 

■ Move left 

6 

7 

1504 

83 


DB 

KB^RIGHT 

; Cursor right 

.g 

9 

iSi'JS' 

14EE 


DW 

Stl^^l'b 

" Move right 

.lO' 

iSOV ' 

^0 


DB 

KB-UP 

; Cursor up 

11 

1508 

14F5 


DW 

STP2E 

; Set tab 

12 

13 

150A 

81 


DB 

KB^DOWN 

; Cursor down 

14 

15 

150B 

14F9 


bw 

STP2F 

• Clear tab 

.i6 


t)6b4 

. L2tL 

EQLI 

(^•-L2T)/3 

; Table length 

17 







is 







19 







20 







21 



; ; 

L2 - 

1ine #2 


22 



; 




23 



; 

#L2# 

displavs setup information 

for line #2 set/clear tabs. 

24 



; 




25 



? 




26 



; 

ENTRY 

none 


27 



; 




28 



; 

EXIT 

none 


29 



; 




30 

31 




USES 

al 1 


32 







33 

150D 

90 

5780 L2: 

MOV 

DPTR, #L25MEM 

• Work with 25th line 

34 

1510 

7D 

00 

MOV 

TEMP, #0 

; Counter variable 

35 

1512 

78 

29 

MOV 

PTRl, #TABTAB 

■ Point to tab table 

36 

1514 

7A 

OA 

MOV 

INbXl, #10 

; 10 bvires 

37 

1516 

E6 

L2A: 

MOV 

A, ©PTRl 

? REPEAT get bvte 

38 

1517 

7B 

08 

MOV 

INDX2, #8 

; 8 b i t s 

39 

1519 

FE 


MOV 

WORKl, A 

; save value for later 

40 

151A 

ED 

L2B: 

MOV 

A, TEMP 

; REPEAT 

41 

151B 

04 


INC 

A 

• get and adjust position 

42 

151C 

75 

FO OA 

MOV 

B, #10 

; calculate character 

43 

151F 

84 


DIV 

AB 


44 

1520 

E5 

FO 

MOV 

A, B 


45 

1522 

24 

30 

ADD 

A, #'0- 

? convert to ASCII 

46 

1524 

FF 


MOV 

work:2, a 

; and save it 

47 







48 

1525 

ED 


MOV 

A, TEMP 


49 

1526 

B5 

01 02 

CJNE 

A, PTR2A, L2C 

; IF cursor = position THEN 

50 

1529 

7F 

09 

MOV 

W0RK2, #09H 

; change to cursor char 

51 







52 

152B 

EE 

L2C: 

MOV 

A, WORKl 

; restore tab table value 

53 

152C 

33 


RLC 

A . 


54 

152D 

FE 


MOV 

WORKl, A 

; replace new value 

55 

152E 

50 

08 . 

JNC 

L2D . 

.5 .IF. . T.HEN. 

56 

1530 

7F 

00 

MOV 

W0RK2, #00H 

; change to tab char 

57 

1532 

ED 


MOV 

A, TEMP 
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1 

1533 

B5 

01 02 

CJNE 

A, PTR2A, L2D 

.'.IF cursor = position THEN 


1536 

7F 

02 

MOV 

W0RK2, 

#02H 

; chango to both char 


1538 

EF 

. L2D: 

MOV 

A, W0RK2 

? s«€-t final character 

4 

1539 

FO 


MOVX 

@DPTR, 

A 

? Place into memorv 


153/-^ 

A3 


INC 

DPTR 


? bump pointer 

6 

153B 

OD 


INC 

TEMP 


• bump count 

7 

153C 

DB 

DC 

DJNZ 

INDX2» 

L2B 

; UNTIL al1 bits 


153E 

OS- 


INC 

PTRl 


; bump tab table pointer 

9 

153F 

DA 

D5 

DJNZ 

INDXl, 

L2A 

; UNTIL all bvtes 

10 

1541 



RET 





ccc ccc c cccc 
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1 





, . 

SETUP3 

setup mode line #3 



2 

3 






#SETUP3* runs the terminal setup 

mode to change baud rate* 

4 

5 





. 

paritY» 

duplex* and handshake. 



6 

7 





f 

? 

ENTRY 

none 



8 










9 





; 

EXIT 

none 



10 





; 





11 






USES 

al 1 



12 










13 










14 

1542 

B1 

98 


SETUP3: 

ACALL 

L3 

; 

Display third line 

15 

1544 

91 

07 


STP3A: 

ACALL 

SFCKB 

m 

7 

Fetch character from keyboard 

16 

1546 

75 

FO 

04 


MOV 

B, #L3TL 



17 

1549 

90 

158C 



MOV 

DPTR* #L3T 



18 

154C 

71 

E9 



ACALL 

LOOKUP 

; 

Look UP command 

19 

154E 

80 

F4 



SUMP 

STP3A 

7^ 

Keep on soins . 

20 










21 










22 

23 






Chanse 

baud rate 



24 

1550 

E5 

33 


STP3B: 

MOV 

A* BAUDRATE 

; 

Search for current baud rate 

25 

1552 

75 

FO 

OE 


MOV 

B* #L3ATL . . 



26 

1555 

90 

161E 



MOV 

DPTR, #L3AT 



27 

1558 

91 

04 



ACALL 

XSTABX . 



28 

■{55A ••• 

40 

06 



JC 

STP3B1 


IF found THEN 

29 

155C 

E5 

FO 



MOV 

A* B 


set count +• 1 . 

30 

155E 

B4 

OE 

01 


CJNE 

A* #L3ATL, STP3B1 


IF time for wrap THEN 

31 

1 5^. 1 

£4 




CUR 

..A. 



. 4i . 

32 

1562 

12 

0E4B 


STP3B1: 

CALL 

SBR 


Set baud rate 

33 

.1565... 

SO 

1*8 



8UMP 

SETU.Pa . 



34 









35 










.36’ 





; 

Chanse 

parity 



37 





? 





38 

1567 

20 

28 

08 

STP3C: 

JB 

PRTYENA* STP3C1 

* 

IF disabled THEN 

.39. 

.156 A... 

... 112. . 

.28. 



. SETS .... 

. .PRTY.ENA. 


....^OAb.i.^..Parity. . 

40 

156C 

C2 

29 



CLR 

PRTYSTK 

* 

normal parity 

41 

.15.6E. 

C:2 

2A 



.CUR 

PRTYEVN . 

?. 


42 

1570 

80 

DO 



SJMP 

SETUP3 



43 

1572 

20 

29 

07 

..8.TP;3C.1?.. 

JP 

PR.Ty.8T.K?..8.TP8C.2 . 

; 

IF normal parit.ir . ANfl. 

44 

1575 

20 

2A 

08 


JB 

PRTYEVN, STP3C3 

; 

IF odd parity THEN 

. 45. 

.15.78... 

... 112 . 

. 2A. 



. 8ETB... 

PRTYEVN . 

1 

ma^.'^ even parity . 

46 

157A 

80 

C6 



SJMP 

SETUP3 



. .47. 

.157Q... 

,.. .C2 . 

. 28. .... 


,.STP3C2.v., 

. CUR . 

. .PRTY.ENA . 


. IF. .s.ti.ql?, .THEN . d . P^r.i.tY. 

48 

157E 

80 

C2 



SJMP 

SETUP3 



. 49. . 

, 158.0. .. 

...82 . 

..29 . 


. .8 J.paca: .. 

. .SE.X8. ... 

..RRIYSTK . 

. 7 

.. IF. .«!YSD. .THEN. ?.t Iqk. p.^r.i tx . 

50 

1582 

80 

BE 



SJMP 

SETUPS 



51 










52 










S3 






.T P.9 9.1. f. 

.d.yp.i.ex. 



.>';•%'. 

54 





? 





.55 

.158.4... 

...82. 

..2E . 


. .8T.P8D.:. ... 

. .CPU . 

.. F.UULDPUX . 

. 7 

. .T.oss 1 s .. .f.u.1.1 /.bal f.. d.gp.I . 

56 

57 

1586 

80 

BA 



SJMP 

SETUPS 
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1 





2 

3 

. 

T 03B 1e 

handshake- 


4 1588 
. 5 158A 

B2 3E STP3E: 

... 80. B6 

CPL 

.8dMP.... 

HNDSHK 

SETUP3 

7 Toggle 5oft/hard handshake 


6 

7 


8 


9 


10 

11 



■ ; 

L3T - 

line #3 table 



12 

13 




«-L3T# 

contains the Jump table for 

1 i ne #; 

3 in setup mode. 

14 

15 


15811: 

L3t 

EQU 

i 



16 

17 

158C: 
158D 

31 

1550 


DB 

DW 

•' 1 ••• ; 

STP3B ; 

Option 
Change 

#i . 

baud rate 

18 








19 

158F 

32 


DB 

•••2- ; 

Option 

#2 

20 

21 

1590 

1567 


DW 

STP3C 

Change 

paritv 

22 

23 

1592 

1593 

33 

1584 


DB 

DW 

3 •' ■ 

STP3D ; 

Option 
T ogg1e 

#3 . 

duplex 

24 








25 

1595 

34 


DB 

•'4' ; 

Option 

#4 

26 

27 

1596 

1588 


DW 

STP3E ; 

T ogg1e 

handshake 

28 

29 


0004 

L3TL 

EQU 

($-L3T)/3 

Table 

i ength 

30 








31 








32 








33 



; ? 

L3 - 

1 i ne #3 



34 








3Fi 



» 

■«-L3* 

displays setup information for line 

#3. 

36 



? 





37 



; 





38 

39 



- 

ENTRY 

none 



40 

41 



■ 

EXIT 

none 



42 

43 




USES 

a1 1 



44 








45 

1598 

E4 

L3: 

CLR 

A ; 

Position 

... 


47 1599 

71 

FE 


ACALL 

XSTX 

48 1S96 

2A 

4D 

45 

DB 

•■*MENU B# i. BAUD S ( •- •'+80H> . 

159E 

4E 

CjCJ 

20 



iSi^l 

42 

5:a 

2:0 . 



15A4 

20 

20 

31 



ISA 7 

2E 

20 

42 



15AA 

41 

55 

44 



15 AD 

AO 





49 






50 15AE 

E5 

33 


MOV 

A, BAUDRATE . 

51 15B0 

75 

FO 

OE 

MOV 

B, #L3ATL 


c c c c c c 


c c c c c 


































3 


3 




3 


3 
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1 

15B3 

90 

161E 



MOV 

DPTR, #L3AT 


2 

15B6 

91 

04 



ACALL 

XSTABX 

; Search for correct message 

3 

15B8 

50 

06 



JNC 

L3A 

; IF not found THEN 

4 

15BA 

75 

33 

00 


MOV 

BAUDRATE, #0 

; clear baud rate 

5 

15BD 

90 

167F 



MOV 

DPTR, #LN3B14 

? error message 

6 

15C0 

74 

13 


L3A: 

MOV 

A, #19 

; Position 

7 

15C2 

...91 

01 



ACALL 

XSTATX 

; Baud rate message 

8 

9 

15C4 

71. . 

FE 



ACALL 

XSTX 


10 

15C6 

20 

20 

32 


DB 

•' 2. PARITY-, 

(-■ •-+80H> 


1509... 

2E 

20 

50 






15CC 

41 

52 

49 






15CF 

54 

59 

AO 





11 

12 

15D2 

90 

1684 



MOV 

DPTR, #LN3C1 

; No parity 

13 

15D5 

30 

28 

OF 


JNB 

PRTYENA, L3B 


14 

15D8 

90 

1689 



MOV 

DPTR, #LN3C2 

? Stick parity 

15 

15DB 

20 

29 

09 


JB 

PRTYSTK, L3B 


16 

15DE 

90 

169K . 



MOV 

DPTR, #LN3C3 

; Even parity 

17 

15E1 

20 

2A 

03 


JB 

PRTYEVN, L3B 


.19. 

.1.594... 

...?o. 

.1.69.3.. 



MOV 

PPTR, #tN3C4 

; Odd p^rifv . . 

19 

15E7 

91 

01 


L3B: 

ACALL 

XSTATX 

; Parity message 

20 









21 

15E9 

71 

FE 



ACALL 

XSTX 



15EB 

20 

20 

33 


.DB. 

3, DUPLEX-', 

(•- -•+80H) . 


15EE 

2E 

20 

44 






15F1 

^5 

50 

4C 





23 

15F4 

45 

58 

AO 





24 

15F7 

90 

1698 



MOV 

DPTR, #LN3E1 

' Full duplex 

.25. 

26 

15FA 

20 

2F 

03 


JB 

FULLDPLX, 1.3C 


15FD 

90 

169C 



MOV 

DPTR, #LN3E2 

; Half duplex 

27 

.1600. 

91 

..01. 


L3C; 

ACALL 

XSTATX 

; Duplex message . 

28 









•-^c> 

.16.02. 

71 

. .fee;. 



aca.lu . 

... X.8T.X. 


30 

1604 

20 

20 

34 


DB 

4. HANDSHAKE 

(-• -+80H) 


.16.07. 

2E 

, .3.0. 

48 






160 A 

41 

4E 

44 






160D. 

53 

. .43._ 

41 





31 

1610 

4B 

45 

AO 





32 

1613 

90 

16 AO 



MOV 

DPTR, #LN3G1 

; Hardware handshake 

.33. 

.16.16. 

20 

3E 

03 


JB 

HNDSHK, LSD 


34 

1619 

90 

16A8 



MOV 

DPTR, #LN3G2 

? Software handshake 

.35. 

36 

.16.1C. 

81 

. .0.1. 


L3D: 

AJMP 

XSTATX 

• Handshake message and return . 









37 









•-;0 









39 









40 





; ? 

L3AT - 

line #3 table 


41 





• 




42 





■ 

•S-L3AT* 

contains the addresses for the cor respond i n£« baud 

43 





• 

rates 

and the order is 

used to determine the next baud rate 

44 





; 

when chansted. 


45 









46 


161E 



L3AT 

EQU 

$ 


.4.7, 
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1 

161E 

FF 

OB 

255 

; 19200 baud 

3 

161F 

16’4S 

DW 

LN3B 


4 

1621 

FE 

OB 

254 

; 9600 baud 

5 

1622 

1640 

DW 

..L.N3B1. 


6 

7 

1624 

FC 

DB 

252 

; 4800 baud 

8 

9 

1625 

1652 

DW 

LN3B3 


.10 

1627 

FF 

OB 

255 

; skip 7.200 baud 

11 

1628 

167F 

DW 

LN3B14 


12 

13 

162A 

F8 

OB 

248 

; 2400 baud 

14 

15 

162B 

i657 

DW 

LN3B5 


16 

1620 

FF . 

DB 

255 

? skip 3600 baud 

17 

162E 

167F 

DW 

LN3B14 


IS 






19 

1630 

F5 

OB 

245 

• 1800 baud 

20 

21 

1631 

165C 

DW 

LN3B7 


22 

1633 

FF 

DB 

255 

; skip 2000 baud 

23 

1634 

167F 

DW 

LN3B14 


24 






25 

1636 

FO 

DB 

240 

; 1200 baud 

26 

1637 

1661 . 

DW 

LN3BS 


27 






28 

1639 

EO 

DB 

224 

" 600 baud 

29 

163A 

1666 

DW 

LN3B9 


30 

31 

163C 

CO 

DB 

192 

“ 300 baud 

32 

33 

. !-;A' 

1630 

i 66B 

• • • -! A.. 

DW 

LN3B10 


34 

16 or 

80 

DB 

128 

" 150 baud 

35 

1640 

1670 

DW 

LN3B11 


:36 






37 

1642 

52 

DB 

82 

; 110 baud 

38 

1643 

1675 

DW 

LN3B12 


39 






40 

1 645 

di 

DB 

1 

; 75 baud . 

41 

1646 

167A 

DW 

LN3B13 


4'2 






43 

. 


OOOE L3ATL 

EQU 

(^--L3AT)/3 

; Table length 


45 

46 


47 

48 

49 





■ m 

? 7 

Line #3 

setup 

mode messages 

5o 









51 

1648 

31 

39 

.32 

LN3B: 

DB 

••1920- 

, (-•0 '-+-80H) 


i64g 

30 

BO 






52 

164D 

39 

36 

30 

LN3B1: 

DB 

-9600' 

, (•' -+80H) 


1650 

30 

AO 






53 

1652 

34 

38 

30 

LN3B3: 

DB 

•'4800' 

, (- •-+80H) 


1655 

30 

AO 






54 

1657 

32 

34 

30 

LN3B5: 

DB 

-2400- 

, (•' -+80H) 


C C C C C c c 







































7 7 7 


7 7 7 


7 7 7 7 


7 
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1 165C; 

31 

■»| Pj 

30 

LN3B7: 

DB 

1300 7 

( ••■+80H) 

i 65F 

30 

AO 






. 2 1661 

.. 31. 

.... ;52. 

.30. 

LN3BS: 

DB 

■•• 1200 -, 

( h-SOH ) 

1664 

30 

AO 






. 3 1666 

36 

30 

30 

LN3B9: 

DB 

600 •-, 

( •- +80H) 

1669 

20 

AO 






. 4 166B 

33 

30 

30 

LN3B10: 

DB 

300 , 

( •• ••• +80H) 

i 66 E 

20 

AO 






5 1670 

31 

3Fi 

30 

LN3B11: 

DB 

1-50 , 

C •' +3OH) 

1673 

20 

AO 






6 1675 

31 

31 

30 

LN3B12: 

DB 

•110 

(••• •••+80H) 

.1673 

20 

AO 






7 167A 

37 


20 

LN3B13: 

DB 

••• 75 •••, 

( +80H) 

167D 

20 

AO 






8 167F 

65 

72 

72 

LN3B14: 

DB 

e r r 0 '' 7 

( •• r ••+80H) 

1682 

6 F 

F2 






9 1634 

73 

70 

61 

LN3C1: 

DB 

•'spac '' > 

( ••• €' •- +30H) 

1637 

63 

E5 






10 1689 

6 D 

61 

72 

LN3C2: 

DB 

•■■mar k '■» 

(••■ •••+80H) 

163C 

6 B 

AO 






11 168E 

.. 35. 

76 

65 

LN3C3: 

DB 

••'even -■» 

( •• +80H) 

1691 

6 E 

AO 






12 1693 

6 F 

64 

64 

LN3C4: 

DB 

••■ 0 d d • 7 

(•- ■••+80H) 

1696 

20 

AO 






13 1693 

66 

75 

6 C 

LN3E1: 

DB 


-I •'+SOH) 

169B 

EC 







14 169C 

68 

61 

6 C 

LN3E2: 

DB 

•"hal“» < 

•• f •'+80H) 

169F 

E 6 







15 16A0 

63 

61 

72 

LN3G1: 

DB 

•■■ hard war 

••■7 (••■e--+80H) 

16 A3 

64 

77 

61 





16A6 

72 

E5 






16 16A3 

73 

6 F 

66 

LN3G2: 

DB 

•■■ sof twar 

••■7 (•'€--+80H) . 

16AB 

74 

77 

61 





16AE 

72 

E5 







c c c c c 


c 


c c c c c 


































3 

7 


> 


3 

3 

> 3 

3 0 

D 



' Z29R0M; MICROBENCH 8051 CROSS ASSEMBLER (Vl)-218 
*** Z-*29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 

24~FEB~83 15: 

30:06 PAGE 193 





1 




. . 

SETUP4 

- setup mode line #4 





2 

3 




• 

7 

7 

*.SETUP4* runs the terminal setup 

mode to chan9e port* mode 




4 

5 




m 

7 

• 

7 

hold screen mode* and monitor mode. 




6 

7 




a 

7 

7 

ENTRY 

none 





8 

9 




7 

7 

EXIT 

none 





10 

11 




7 

7 

USES 

al 1 




12 

1 13 . 


14 16B6 

15 16B2 

D1 

91 

FS 

07 


SETUP4: 

STP4A: 

ACALL 

CALL 

L4 

SFCKB 

* Display fourth line 
; Fetch character from k e v b o a r d 




16 16B4 

17 16B7 

75 

90 

FO 

16EC 

04 


MOV 

MOV 

B, #L4TL 

DPTR, #L4T 





18 16BA 

19 1 ARC 

71 

SO 

E9 

F4 



CALL 

SUMP 

LOOKUP 

STP4A 

* Look UP command 
■ Keep on going 



1 20 

I 21 . . 


22 

23 




7 

Tossle 

main port 





24 16BE 

25 16C1 

12 

80 

lEOF 

ED 


STP4B: 

CALL 

SUMP 

CMPORT 

SETUP4 

» Toggle port 




26 

27 











28 

29 




7 

T oss )e 

ANSI/ZDS/ADM 3/Hazel tine 

mode 




30 16C3 

P.X 

E5 

FO 

28 


STP4C: 

MOV 

MOV 

A* MODE 

TEMP* A . 

» Get current mode 
; Save it . 




32 16C6 
oo 1 /-.r-Q 

53 

33 

05 

FO 


ANL 

RL 

TEMPA* #11110000B 

A 

» Mask off mode portion 
; Rotate to next mode . 




.. . \ W-t- /... 

34 16CA 

35 lACC 

. . yfcrV. 

54 

70 

OE 

01 • 



.anl’ ” 

. ,MZ . 

A* #00001 HOB 
..STR4CX. 

; Mask off extra stuff 
; IF zero THEN . . .. 




36 16CE 

37 16r:F 

04 

4D 



STP4C1: 

INC 

ORL 

A 

A* TEMP 

» bump to one 

* Combine both halfs . 




38 16D0 

39 1 Anp’ 

F5 

33. 

28 

CB 



MOV 

. .ACALL.. 

MODE* A 

TERMINIT . 

* Save new current mode 
; Initialize for any.terminal. 




40 16D4 

41 1 Ari7 

30 

34. 

43 

D4 

02 


JNB 

ApALL 

HAZ* STP4C2 

HAZINIT 

; IF Hazel tine THEN 
; initialize for Hazel ti.n.e. 




42 16D9 

43 

80 

D5 


STP4C2: 

SUMP 

SETUP4 





44 

45 





Tossie 

hold screen mode 





46 

47 1ADB 


36 

05 

STP4D: 

.vW. 

HSMODEF* STP4D1 





48 16DE 

49 1AF1 

12 

sn 

0B43 

CD 



CALL 

SUMP 

XHSM 

SETUP4 . 

* IF hold screen THEN exit 




50 16E3 

51 16E6 

12 

80 

0B3C 

C8 


STP4D1: 

CALL 

SUMP 

EHSM 

SETUP4 

* ELSE enter hold screen 




52 

F.3 











54 

fSFi 





T 0991 e 

monitor mode 





56 16ES 

57 IAEA 

B2 

SO 

3A 

C4 


STP4E: 

CPL 

SUMP 

MONITOR 

SETUP4 . 

* Toggle monitor mode 
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. 1 


. 

4 

irj 

6 




; ; 

L4T - 

• Line #4 tabl^ 

. 7 





. •»-L4T-» 

contains the -jump tahl<? tor #4 in rf-n-je 

9 

16EC 



L4T 

EQU 

$ 

10 

11 16EC 

31 




DB 

1 

12 16ED 

13 

16 BE 




DW 

3TF'4B ; Tonsil e ports 

14 16EF 

15 16F0 

16 

17 16F2 

16C3 

33 




DB 

DW 

DB 

.S.TP.'TC... ? Toss 1 e mo de 

3 

IS 161-3 

19 

16DB 




DW 

ST P4D ; T o g g 1 e h <:i Id sc r e e n 

20 16F5 

21 16F6 

34 

16E0 




DB 

DW 

■■■'4- 

.... .ST.P^.E. !! T 0 g g 1 e m o nit o r m n d e 

23 

0004 



L4TL 

EQU 

.(^."L4T)/3 ; Table ler.c^th 

24 ... 

27 

29 




!' 

L4 - 

1 i ne #4 

30 

31 




- 


displays setup information for line #4. 

32 

33 





ENTRY 

none 

34 

35 




] 

EXIT 

none 

36 

37 




: 

USES 

al 1 

3'.9 

40 16F8 

41 16F9 

E4 

71 

FE 


L4: 

CLR 

ACALL 

A . 

XSTX 

42 i6FB 
16FE 

2A 

4E 

4D 

55 

45 

20 


DB 


1701 

1704 

43 

20 

2A 

20 

20 

31 




.1707 

170A 

2E 

4F 

20 

52 

50 

54 




l /U1.I oo . 

43 

l /ut 

45 1711 

90 

30 

1769 

02 

03 


MOV 

JNB 

DPTR, #LN4B1 ; Normal . 

PORTF, L4A 

46 1714 

47 1717 

yO 

91 

176F 

01 


L4A: 

MOV 

ACALL 

DPtR, #LN4B2 ; Au.xi 1 iar-V. 

XSfATX ; Port message 

4W 

49 1719 

71 

FE 



ACALL 

XSTX 

So 171B 
171E 

20 

20 

2E 

20 

20 


DB 

2. MODE - , ( ••• - +80^) 


c 


€ 


C 


c c c 


c c c c 


c 



































3 3 > 3 3 3 


3 3 3 5 


3 
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MOV 

JB 

DPTR, #LN4D1 

ANSI, L4B 

; ANSI mode 

4 1 /k'C 

90 

177D 



MOV 

DPTR, #LN4b2 

; Zbs mode 

. 5 172F 

20 

41 

09 


JB 

ZDS, L4B 


6 1732 

90 

1705 



MOV 

DPTR, #LN4D3 

? Abri 3 mode ' . 

. 7 1735 

20 

42 

03 


JB 

ADM3, L4B 


0 1738 

90 

170D 



MOV 

DPTR, #LN4D4 

; Hazel tine mode 

9 173B 

91 

01 


L4B: 

ACALL 

XSTATX 

; ANSI/ZDS/ADM 3/Haz message 

10 

11 173D 

71 

FE 



ACALL 

XSTX 


12 173F 

20 

20 

20 


DB 

3. HOLD SCRN-, ( 

•- -+80H) . . 

1742 

33 

2E 

20 





1745 

40 

4F 

4C 





1740 

44 

20 

53 





174B 

43 


4E 





174E 

AO 







13 








14 174F 

A2 

36 



MOV 

C, HSMODEF 


15 i751 

12 

IBBF 



LCALL 

XLONOFF 

; Hoid 0 n /0 f f message 

16 








17 1754 

71 

FE 



ACALL 

XSTX 


18 1756 

20 

20 

20 


DB 

4. MONITOR-, (••• 

- -Mr!OH > 

1759 

34 

2E 

20 





175C: 

4D 

4F 

4E 





175F 

49 

54 

4F 





1762 


AO 






19 

20 1764 

A2 

3A 



MOV 

C, MONITOR 


21 1766 

22 

02 

IBBF 



LJMP 

XLONOFF 

; Monitor mode on/off and return 

23 








24 








25 








26 




;; 

Line #4 

setup mode messages 


27 

20 








29 i769 

6E 

6F 

72 

LN4B1: 

DB 

•- n 0 r ma , ( -1 - +0bH) 


176C: 

6D 

61 

EC 





30 176F 

61 

75 

70 

LN4B2: 

DB 

•'auxil--, (•- ••■+80H) 


1772 

69 

6C 

AO 





31 i775 

61 

6E 

■73 ■■ 

LN4bl: 

DB 

-ansi -■, ( •- -+001^) 


1770 

69 

20 

20 





177B 

20 

AO 






32 177D 

7A 

65 

6E 

LN4D2: 

DB 

-zenith -, ( ' -■+80H) 


i70b 

69 

74 

60 





1703 

20 

AO 






33 1705 

61 

64 

6D 

LN4D3S 

DB 

- adm 3a -, ( - -+001^) 


1780 

20 

33 

61 





178B 

34 173D 

20 

60 

AO 

61 

7A 

LN4D4! 

DB 

•'haz 150', (•-O-+0OH) 


1790 

20 

31 

35 





1793 

30 

BO 







c c 


c c c c 


c c c 


c c 




























3 


7 


0 


1 


) ) ) 


0 


7 
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1 





- - 

SETIJP5 

” setup mode line # 

5 

- 





7 

^<-SETUP 

S# runs the terminal 

setup mode to chanse set clock7 

. 4' 





? 

? 

togg 1 e 

s-tairus 1ine» setup 

wrap around7 and screen saver. 

6 

7 






ENTRY 

none 


8 

9 






EXIT 

none 


. X6' 









11 






USES 

al 1 


.12'. 

13 

14 

1795 

12 

1808 


SETUP5: 

CALL 

L5 

7 Displa-i' fifth line 

15 

1798 

91 

07 


STP5A: 

CALL 

SFCKB 

7 Fetch character from ke^vboard 

16 

179A 

75 

FO 

04 


MOV 

B, #L5TL 


17 

179D 

90 

17FC 



MOV 

DPTR, #L5T 


18 

17A0 

71 

E9 



CALL 

LOOKUP 

7 Look UP command 

19 

17A2 

80 

F4 



SUMP 

STP5A 

7 Keep on goins» 

20 









21 









23 






Set clock 


24 

17A4 

12 

1B2C 


STP5B: 

CALL 

SCLRLR 

7 Setup clear line reverse 

25 

17A7 

E4 




CLR 

A 


26 









27 

17A8 

71 

FE 



ACALL 

XSTX 



17AA 

45 

6E 

74 


DB 

•'Enter hours '7 < ' 

>'+80H) 


1 7AD 

65 

72 

20 






17B0 

68 

6F 

75 






17B3 

72 

73 

20 





29 

1 7B6 

BE 







30 

1 7B7 

74 

OE 



MOV 

A, #14 


31 

1 7B9 

12 

1B45 



CALL 

GETNUM 

7 Get number 


17BC 

BF 

C)0 

02 


CJNE 

W0RK27 #0, STP5B1 

; IF zero THEN skip 

Sc: 

1 7BF 

80 

D4 



SUMP 

SETUPS 


34 

17 Cl 

B4 

18 

00 

STP5B1: 

CJNE 

A, #247 STP5B2 


35 

1 7C4 

50 

CF 


STP5B2: 

JNC 

SETUPS 

; IF number <> 24 THEN 

36 

17C6 

f--5 

3D 



MOV 

THOUR7 A 


37 

1 7C8 

12 

1B2C 



CALL 

SCLRLR 

7 Setup clear line reverse 

39 

1 7CB 

E4 




CLR 

A 


40 

1 7CC 

71 

FE 



ACALL 

XSTX 


41 

17CE 

45 

6E 

74 


DB 

•'Enter minutes •" 7 

( - y -'+SOH) 


17D1 

65 

72 

20 






17D4 

6D 

69 

6E 






17D7 

75 

74 

65 






1 7DA 

73 

20 

BE 





42 









43 

17DD 

74 

10 



MOV 

A7 #16 


44 

17DF 

12 

1B45 



CALL 

GETNUM 

7 set number 

45 

17E2 

B4 

3C 

00 


CJNE 

A7 #607 STP5B3 


46 

17E5 

50 

AE 


STP5B3: 

JNC 

SETUPS 

7 IF number <= 59 THEN 

47 

17E7 

F5 

3C 



MOV 

TMIN7 A 


48 









49 

17E9 

E4 




CLR 

A 
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1 

17EA 

F5 

3B 


MOV 

TSEC, A 

“ clear seconds 

2 

17EC 

F5 

3A 


MOV 

TCNT, A 

■ and count 

3 

17EE 

80 

A5 


SUMP 

SETUP5 


4 

5 

6 




; 

Togs 1 e 

25th status line 


7 




; 




•r; 

17F0 

B2 

37 

STP5C: 

CPL 

L250N 

; Toggle status line 

9 

17F2 

80 

A1 


SJMP 

SETUP5 


10 








11 








12 





T ogg1e 

wrap 


13 




; 




14 

17F4 

B2 

2B 

STP5D: 

CPL 

AUTOWRAP 

7 Toggle auto wrap 

15 

17F6 

80 

9D 


SJMP 

SETUPS 


16 








17 








18 




; 

Toss!e 

screen saver mode 


19 








20 

17F8 

B2 

3B 

STP5E: 

CPL 

SCRNSAVE 

7 Toggle screen saver 

21 

17FA 

80 

99 


SJMP 

SETUPS 



24 


26 

27 


. 

L5T “ 

line #5 table 

28 



•S-L5T* 

contains the Jump table for line #5 in setup mode. 

29 





30 

17FC 

L5T 

EQIJ 

$ 

31 





32 17FC 

31 


DB 

1 

33 17FD 

17A4 


DW 

STP5B 7 Set clock 

34 





35 17FF 



DB 

••• 2 

36 1800 

r7F0 


DW 

STP5C ; Toggle status line 

37 





38 i802 

33 


DB 

••• 

39 1803 

17F4 


DW 

STP5D ; Toggle wrap around 

40 





41 1805 

34 


DB 

••'4- 

42 1806 

17F8 


DW 

STP5E ; Toggle screen saver 

43 





44 

0004 

L5TL 

EQIJ 

($~L5T >/3 ; Tab 1e 1e ng t h 

45 





46 





47 





48 





49 


; ; 

L5 

line #5 

50 


; 



51 


; 

#L5# 

displays setup information for line #5. 

. 52 . 


; 



53 


; 



54 


; 

ENTRY 

none 

55 


; 



56 


7 

EXIT 

none 

57 


7 




€ 


c c c c 


c c c 


c 







































1 


7 1 111 


1111 


1 
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1 




USES 

al 1 


2 

3 

4 1808 

Cj 

E4 


L5: 

CLR 

A 


6 1809 

71 

9D 


ACALL 

XST 


7 180B 

2A 

4D 

45 

DB 

••••s-MENU D* 1. SET CLOCK 

2. STATUS LINE--, ( - •-+80H) 

.18t)F' ■ ■ 

■ ■ ■ 4^ . 


20 




1811 

44 

2A 

20 




.1814 ••• 

■ ■ ‘20 ■ ■ “ 

.20. 

■81 .. . 




1817 

2E 

20 

53 




.181A-- 

• • 45 ■ ■ ■ • 

• •" 54 . 

• • • 20. 




181D 

43 

4C 

4F 




:o 

20 

■ • 43 • ' ■ ■ 

• • • • 46 - . 

■ * ■ 20. 




1823 

20 

20 

32 




.182:^'■■ 

• • 28 ■ ■■' 

■ • • • 20. 

• • • 83. 




1829 

54 

41 

54 




.182C'' 

• • -65 • • • • 

.5:;;/. 

••'20. 




1S2F 

4C 

49 

4E 




18:“! 2 

45 

AO 





9 i8;S4 


• • • • 87. 


. MdO 

■ C’/ ■ L25dN 


10 1836 

12 

IBBF 


LCALL 

XLONOFF ; 

Status 1ine on/off 

11 







12 1839 

71 

9D 


ACALL 

XST 


l:S i33B 

20 

2o 

20 

DB 

3. WRAP-, (•' -+801^) 


1S3E 

33 

2E 

20 




1841 

57 

52 

41 




1844 

50 

AO 





14 







15 1846 

A2 

2B 


MOV 

C, AUTOWRAP 


16 1848 

12 

IBBF 


LCALL 

XLONOFF ; 

Wrap a r o u n d o n/off 

17 







18 184B 

'71. 

9D 


ACALL 

xst 


19 184D 

20 

20 

20 

DB 

4. SCREEN SAVER-, (- 

•• +80H) 

1850 

34 

2E 

20 




1853 

53 

43 

52 




1856 

45 

45 

4E 




1859 

20 

53 

41 




185C 

56 

45 

52 




185F 

AO 






20 







21 1860 

A2 

3B 


MOV 

C, SCRNSAVE 


22 1862 

02 

IBBF 


LUMP 

XLONOFF 

Screen saver on/off and return 
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. X. 





.? ,5.. 

SETIJP6 

- s e t u p mo de 1ine #6 


2 






*SETUP6# runs the* termina.1 c;etup mode' tci i-rharipts* k^vpad 

4 

tr 






keypad 

alternate? auto repeat 

» and key click. 

6 

7 

P, 





7 

.ENTRY.. 

. .none 


9 





; 

EXIT 

none 


10 

11 





* 

USES 

al 1 


12 . 

13 

14 

15 

1865 

1867 

11 

12 

97 

1407 


SETUP6S 

STP6A: 

ACALL 

CALL 

L6 

SFCKB 

; Dis p1 ay sixth 1ine 
? Fetch character from keyboard 

16 

17 

186A 

186D 

75 

90 

FO 

188B 

04 


MOV 

MOV 

B, #L6TL 

DPTR? #L6T 


18 

19 

1870 

1873 

12 

80 

13E9 

F2 



CALL 

SJMP 

LOOKUP 

STP6A 

' Look UP command 
; Keep on going 

20 . . 

21 

22 

23 





. 

T 0931e 

keypad shifted 


24 

25 

1875 

1877 

B2 

80 

30 

EC 


STP6B: 

CPL 

SJMP 

KPADSHTF 

SETUP6 

? Toggle keypad shifted 

26 . . 

27 

28 

29 





? 

T 0931e 

keypad alternate 


30 

31 

1879 

187B 

B2 

80 

31 

ES 


STP6i::: 

CPL 

SJMP 

KPADALTF 

SETUP6 

? Toggle keypad alternate 

33 

34 

35 





• 

To99le 

auto repeat 


36 

37 

187D 

1S7F 

B2 

12 

34 

119E 


STP6D: 

CPL 

CALL 

re'pf 

INITKB 

■ Toggle auto repeat 
* Rec0nfigure keyboard 

38 

39 

1882 

80 

El 



SJMP 

SETUP6 


40 

41 





. 

Tog9le 

key click 


42 

43 

1884 

B2 

33 


STP6E: 

CPL 

CLKF 

? Toggle key click 

44 

45 

1886 

1889 

12 

80 

H9E 

DA 



CALL 

SJMP 

INITKB 

SETUP6 

7 Reconfigur keyboard 

46 .. 

47 

49 

50 

51 





? 

L6T - ■ 

line #6 table 


52 

53 






*L6T# contains the Jump table 

for line #6 in setup mode. 

54 

55 


1.88B 



L6T 

EQU 



56 

57 

188B 

18SC 

31 

1875 




DB 

DW 

1 .. 

STP6B 

7 Toggle keypad shifted 













































3 3 3 3 5 


3 3 3 3 


3 
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1 


2 

188E 

188F 

32 

1879 



DB 

DW 

•■2' 

STP6C ; Toggle keypad alternate 

4 







5 

1891 

33 



DB 

••• 3 •' 

6 

1892 

187D 



DW 

STP6D 7 Toggle auto repeat 

7 







.8 

i89'4 

34 



DB 

•-'4' 

9 

1895 

1884 



DW 

STP6E 7 Toggle key click 

.iC)' 







11 


0004 


L6TL 

EQU 

<$~L6T)/3 ; Table length 

. i2 







13 







14 







15 







.16- 




;; 

L6 - 

1 i ne #6 

17 




7 



.i8- 




• 

7 

#L6# 

displays setup information for line #6 

19 




7 



20 




• 

7 



21 




7 

ENTRY 

none 

. 




7 



23 




• 

7 

EXIT 

none 

. 







25 




• 

7 

USES 

al 1 

26 







27 







•7}-! 

1897 

E4 


L6: 

CLR 

A 7 Position 

29 







30 

1898 

71 

9D 


ACALL 

XST 

31 

189 A 

2A 

4D 

45 

DB 

•••*MENU E# 1. KEYPAD SHFT -7 ( •• •••+80H> 


■l'89Ci’ 

4E 

55 

20 




18A0 

45 

2A 

20 




iSA^i' 

•20. 

20 

.. 




18A6 

2E 

20 

4B 




■i8A9 ■ 

■45 . 

59 

50 




18 AC 

41 

44 

20 




18AF 

53 

48 

46 




18B2 

54 

AO 




33 

18B4 

A2 

30 


MOV 

C 7 KPADSHTF 

34 

18B6 

71 

BF 


ACALL 

XLiZiNdFF * Keypad shifted on/off 

35 







36 

18B8 

71 

9D 


ACALL 

XST 

37 

18BA 

20 

20 

20 

DB 

2. KEYPAD ALT -7 ( - •-+80H) 


18BD 

32 

2E 

20 




18C0 

4B 

45 

59 




18C3 

50 

41 

44 




13C6 

20 

41 

4C 




18C9 

54 

AO 




38 







39 

18CB 

A2 

31 


MOV 

C, KPADALTF 

40 

18CD 

71 

BF 


ACALL 

XLONOFF 7 Keypad alternate on/off 

41 







42 

18CF 

71 

9D 


ACALL 

XST 

43 

18D1 

20 

20 

20 

DB 

3. REPEAT -7 ( - •••+80H) 


18D4 

33 

2E 

20 
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1 


2 

CO co¬ 
rn a: 
o m- 

■■■fe 

71 

•■"34 . 

BF 


MOV 

ACALL 

C, REPF 

XLONOFF 

7 Auto repeat on/off 

. 4' 

18E2 

71 

9D 


ACALL 

XST 


6 

18E4 

18E7 

20 

34 

20 

2E 

20 

20 

DB 

4. CLICK', 

(•' +80H) 


■i8EA ■■■ 
18ED 

• • 43 . 

43 

■ • '4t . 

4B 

••■49 . 

AO 




7 

8 

18F0 

A2 

33 


MOV 

C, CLKF 


. 

•18F2- 


. hP '' 


. A JMP- • • ■ 

XLONOFF 

7 Kev click oh/otf ami return 
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1 





;; 

SETIJP7 

“ setup mode line #7 


2 






.•»SETUP7'«- runs the terminal setup 

mode to charo^ a'-ltc' carriasie 

4 





; 

return 

auto line feed^ cursor-i 

and fresuencv. 

6 

7 





; 

ENTRY 

none 


9 





7 

EXIT 

none 


10 





; 




11 





; 

USES 

al 1 


12 









13 









14 

18F4 

31 

3F 


SETUP7! 

ACALL 

L7 

; Display seventh line 

15 

18F6 

12 

1407 


STP7A: 

CALL 

SFCKB 

; Fetch character from keyboard 

16 

18F9 

75 

FO 

04 


MOV 

B, #L7TL 


17 

l3Fi:; 

90 

1933 



MOV 

DPTR, #L7T 


18 

ISFF 

12 

13E9 



CALL 

LOOKUP 

; Look UP command 

19 

1902 

SO 

F2 



SUMP 

STP7A 

• Keep on sioina 

20 









21 














; 

T CO SI 1 e 

auto carriasie return 


23 





; 




24 

1904 

B2 

2C 


STP7B: 

CPL 

AUTOCR 

; Tcosile auto CR 

25 

1906 

80 

EC 



SJMP 

SETUP7 


26 . 

27 

28 





; 

T osis 1 e 

auto line feed 


29 





; 




30 

190S 

B2 

2D 


STP7C: 

CPL 

AUTOLF 

; fosisile auto Lf 

31 

190A 

SO 

ES 



SJMP 

SETUP7 



32' 


33 


34 





; 

Tosisil e 

curs 0 r 


35 





; 




36 

1 ’.^OC 

20 

33 

00 

STP7D: 

JB 

CRNBK, STP7D2 

• IF blinkinsi AND 

37 

190F 

20 

32 

04 


JB 

CRUL, STP7D1 

; IF block THEN 

38 

1912 

D2 

32 



SETB 

CRUL 

■ set to blink line 

39 

1914 

80 

11 



SJMP 

STP7D4 


40 









41 

1916 

C2 

32 


STP7D1: 

CLR 

CRUL 

; IF blink line THEN 

42 

1918 

D2 

38 



SETB 

CRNBK 

■ set to block 

43 

191A 

80 

OB 



SJMP 

STP7D4 

44 









45 

191C 

20 

S!2 

04 

STP7D2: 

JB 

CRUL, STP7D3 

; IF block THEN 

46 

i9if 

D2 

32 



SETB 

CRUL 

; set to un tier line 

47 

1921 

80 

04 



SJMP 

STP7D4 

48 









49 

1923 

C2 

:-!2 


STP7D3: 

CLR 

CRUL 

? IF underline THEN 

50 

51 

i 9l’5 

C2 

■ ■ ‘38. 



CLR 

CRNBK 

■ set to blink block 

52 

i 927 

12 

117B 


STP7D4: 

CALL 

SETCF 

5 Set cursor format 

53 

192 A 

80 

C8 



SJMP 

SETUP7 


54 ... 

55 

56 





; 

Tosisil e 

line frequency 


57 

...... 




; 




c c c 


c c c 


c c c 


c 


c 


































> ^ ) 
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y y 
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1 

192C; 

B2 

39 

STP7E: 

CPL 

FREQ 

; Tossle fre<=iuencY 

.2* 

■192E' 


.1176. 


CALL 

SEtCP 

" Set cursor format 

3 

1931 

80 

Cl 


SJMP 

SETUP? 



4 ’ 

5 


'6 

7 


. 8 - 

9 





5 ’ 

.L7r •- 

"1 "irie " ¥7' tab Ve 


. 10 • 





; 

. 

contains the ■ 

jump table for line #7 in setup mode- 

11 









. 12 


•1933 ■ 



••••L7T. 

.EQU ■ • • 



13 









.14' 

1-933 ’ 

■3T. 




.DB. 

• ■ -' I. 


15 

1934 

1904 




DW 

STP7B 

■ Tossle auto carriage return 

. 









17 

1936 

32 




DB 

••• 2 •' 


.18‘ 

1937 ••• 

■ • •190S- • 




.BW. 

■ ■STP7C■ 

' Toggle auto line feed 

19 









. 20 ' 

1939 ■■■ 

■33 . 




DB 

■■ 3 


21 

193A 

190C 




DW 

STP7D 

" Toggle cursor 

. 









23 

193C 

34 




DB 

•'4' 


.24 ■ 

Y93D*" 

"me 




.'dW 

StP7E 

; Toggle line freg 5o/6o Hz 

25 









.2^ 


• • •0004 • • • 



■ • ■ ■ crtL . 

.eoLi" 

■■ ■(■i-L7T>/3 

7 table length 

27 









28 









29 









.3d 









31 





7 7 

L7 ~ 

1 ine #7 


.•3;^’ 





; 




33 





; 

^<-L7* i 

displays setup 

information for line #7 

. 34' 





; 




35 





; 




.3^-. 





; 

ENTRY 

none 


37 





; 




38 

39 





; 

EXIT 

none 


4o 





7 

USES 

al 1 


41 









42 









43 

193F 

E4 



L7: 

CLR 

A 

7 Position 

44 






1 



45 

1940 

71 

9D 



ACALL 

XST 


46 

1942 

2A 

4D 

45 


DB 

•••#MENU F* 

1. AUTO CR -7 ( •■■ ••■+80H) 


1945 

4E 

55 

20 






1948 

46 

2A 

20 






194B 

20 

20 

31 






i94E 

2E 

20 

41 






1951 

55 

54 

4F 






1954 

20 

43 

52 






1957 

AO 







47 









48 

1958 

A2 

2C 



MOV 

C, AUTOCR 


49 

195A 

71 

BF 



ACALL 

XLONOFF 

7 Auto CR on/off 

50 






































































Z29RbM! HiCROBENCH 8051 CROSS ASSEMBLER (VI>-218 24-FEB-83 15:30:06 PAGE 204. 

...*.**..z-29. COMPUTER, .T.ERMJ.NftL. .FI.BMWftBE..J.QN.. 1...0a ..... 


1 

195C: 

71 

9D 



ACALL 

XST 


2 

195E 

20 

20 

20 


DB 

2. AUTO LF', 

( •' •'+sbH) 


1961 

32 

2E 

20 






1964 

41 

55 

54 






1967 

4F 

20 

4C; 





3 

196A 

46 

AO 






4 

196C 

A2 

2D 



MOV 

C, AUTOLF 


5 

196E 

71 

BF 



ACALL 

XLONOFF 

; Auto LF on/off 

6 

7 

1970 

71 

9D 



ACALL 

XST 


y 

1972 

20 

20 

20 


DB 

3. CURSOR', 

(•' '+80H) . 


1975 

33 

2E 

20 






1978 

43 

55 

52 






197B 

53 

4F 

52 





9 

197E 

AO 







10 

197F 

20 

38 

OB 


JB 

CRNBK, L7C1 


11 

1982 

90 

19B7 



MOV 

DPTR, #LN7D1 

; Blink b1o c k 

12 

1985 

30 

32 

OE 


JNB 

CRUL, L7C2 


13 

1988 

90 

19C:0 



MOV 

DPTR, #LN7D2 

’ Blink underline 

14 

198B 

80 

09 



SUMP 

L7C2 


15 

198D 

90 

19C9 


L7C:ls 

MOV 

DPTR, #LN7D3 

• Block stead-i- 

16 

1990 

30 

32 

03 


JNB 

CRUL, L7C2 


17 

1993 

90 

19D2 



MOV 

DPTR, #LN7D4 

; Underline steady 

18 

1996 

71 

A8 


L7C:2: 

ACALL 

XSTAT 

; Cursor message 

19 









20 

1998 

71 

9D 



ACALL 

XST 


21 

199 A 

20 

20 

20 


DB 

4. FREQ', (•' 

•'+SOH) 


■ i 99D 

34 

2E 

20 






19A0 

46 

52 

45 






' i '9A 3' 

51 

AO 






22 









23 

i'9 AS 

■90 

19tiB 



M’dV . 

'dptr; ■ ■#LiNi7Fi. 

; 50 Hz. 

24 

19A8 

30 

39 

03 


JNB 

FREQ, L7D 


2^' 

1'9‘A6' 

90 

.19Dt: 



Mdv 

til*TR;'#LN7F'3. 

; 60 Hz . 

26 

19AE 

71 

A3 


L7D: 

ACALL 

XSTAT 











28 

19B0 

71 

9D 



ACALL 

XST 



■ i‘5^B2 

■■■30'' 

20 

48 


DB 

•'0 H', ('z'+SOH) 



19B5 

FA 







30 









31 

19B6 

22 




RET 



32 









33 









34 









35 









36 





;; 

Line #7 

setup mode messages 

37 









38 









39 

19B7 

62 

6C: 

6E 

LN7D1: 

DB 

•'blnk blc', ('k' 

+80H) 


i‘96’A 

6B 

20 

62 






19BD 

6C 

63 

EB 





.40 ■ 

i’9C0 ‘ 

62 

6C 

6E 

LN7D2: 

DB 

•'bink lin', ( 'e' 

+80H) . 


19C3 

6B 

20 

6C 






19C6 

■69 ■ 

6E 

E5 





41 

19C9 

62 

6C: 

6F 

LN7D3: 

DB 

•'block •', (•' •' 

+80H) 


c c c c c 


c c c c 













































7 2 7 


7 7 7 


7 7 7 7 


7 
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1 19D2 

75 

6E 

64 

LN7D4: 

DB 

und€T 1 i n •' ? 

( 'e '+BOH) 

19D5 

65 

72 

6C 





19D8 

69 

6E 

E5 





2 19DB 

B5 



LN7F1! 

DB 

(•••5 -+SOH) 


3 19DC 

B6 



LN7F2: 

DB 

(6 +SOH) 




c 


c 


c c c 


c c c c 


c 
































) 3 335 3333 
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1 




. . 

SETUP8 

- setup mode line #8 


2 

3 





^•SETUPS* runs the terminal setup 

mode for simple terminal 

4 

5 





d i as n 0 s t i c s - 


6 

7 





ENTRY 

none 


8 

9 





EXIT 

none 


10 

1 1 





USES 

al 1 


12 

13 ... 

14 19DD 

15 19DF 

51 

X2 

8C: 

1407 


SETUP8: 

STP8A: 

ACALL 

CALL 

L8 ' 

SFCKB = 

! Display eighth line 
; Fetch character from keyboard 

. 4*1—w*. • . • • 

16 19E2 

17 19£5 

75 

90 

FO 

1A74 

04 


MOV 

MOV 

B, #L8TL 

DPTR, #L8T 


18 19E8 

1 o 1 Qcrti 

12 

13E9 

F-7 



CALL 

SJMP 

LOOKUP ' 

STP8A 

! Look UP command 
■ Keep on going 

20 

. 

22 

o-t! 




; 

Fill screen 


24 19ED 

Ocr 1 QPir 

71 

F4 

2C: 


STP8B: 

ACALL 

CUR 

SCLRLR 

A .. 

; Setup clear line reverse 

; Position . 

26 

•77 i9fC) 

71 

90 



.eceuL.. 

XST . 


28 19F2 

19F*=i 

50 

73 

72 

73 

65 

20 


DB 

■'Press RETURN to exi ', ( 

-t'+SOH) 

19F8 

1 QFR 

52 

45 

5? 

54 

4E 





19FE 

20 

74 

AFi 

6 F 

78 





1A04 

•7*7 

69 

F4 






30 1A06 

74 

Q(~) 

45 

5000 


3TP8B1: 

MOV 

MpV 

A, #"£•' 

DPTR, #CHARMEM 

? Display •'E' first time 

; Point to character memory . 

32 lAOB 

•7-7 

71 

21 



ACALL 

SFILL 

; Fill screen with char 

34 lAOD 
•75 1A10 

12 

75 ... 

1407 
F.O.... 

.0.4. 


CALL 

.MQV. 

SFCKB 

...B7..#LSTU2. 

; Fetch character from keyboard 

36 1A13 

90 

1 ■? 

lASO 

013A 



MOV 

CALL 

DPTR, #LST2 

.STAB . 

? Search the table . 

38 1A19 

40 

F4 

ED 



JC 

CUR 

STP8B1 

A 

; IF not found THEN display it 

40 lAlC 

41 

73 




JMP 

©A+DPTR 

; Jump to routine 

42 lAlD 

.43.iAlF... 

44 

4*7 

74 

Rt'J 

20 

E.7 


STP8B3: 

MOV 

SJMP 

A, #••■ 

^Tpsei. 

; Change funny space to real 

; Fill screen . 








46 

47 




; 

Change 

attribute 


48 1A21 

/I 0 1 A *"!• 0 

E5 

21 


STP8C:: 

MOV 

INC 

A, ATTRIBUTES 

A . 

• Get current attributes 

5 Bgmp to next.attribute. 

50 1A24 

.51..1A26.. 

. . . . 

54 

... .53. 

OF 

..21. 

.FO. 


ANL 

.ANL.... 

A, #00001lllB 

ATTR1 EU.IES!. .#.1.1.1.1 POOOB .. 

? Mask .just attributes 

? Get attributes ready .. 
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.QR.L.ATTRI.BUTES».. A. ; Mov€- new attributes i n 

MOV DPTR, #ATRIBMEM ?' F'o'i nt‘ to'' a't'tV-Vbute y'r.emorV'' 

.ACALL-SF I.EU. ? Fill me m o r r' with attribute 

SUMP SETUPS 


6 

7 






Toggle 

=r character set 


8 

9 

1A32 

B2 

3D 


STP8D: 

CPL 

ACHR2 

7 Tossle character set 

10 

1A34 

A2 

3D 



MOV 

C, ACHR2 

11 

1A36 

92 

OC 



MOV 

ALTCHARA, C 

. ; Place into attribute 

12 

13 

1A38 

80 

A3 



SUMP 

SETUPS 


14 









15 





; 

Continuous test 


16 









17 

1A3A 

75 

40 

00 

STP8E: 

MOV 

ERRORS, #0 

7 REPEAT start with no errors 

18 

1A3D 

D1 

D9 



ACALL 

ROMCHK 

? check ROM 

19 

1A3F 

D1 

FI 



.ACALL 

. RAMCHK 

; check RAM 

20 

1A41 

12 

OBAC 


STPSEO: 

CALL 

CLRS 

7 clear screen 

.21. 

.1.A4.4... 

.. .7.1. 

... .2c;- . 



aqael 

SCLRLR 

7 <^etup rloar 1 i rn=' r <=*Vi=*r-c;.* 


1A46 

E4 




CLR 

A 

7 p 0 s i t i 0 n 

24 

1A47 

71 

9D 



ACALL 

XST 


25 

1A49 

43 

6F 

.. .6E .... 


DB 

■Continuous tes 

7 ( •• t 4-80H) 


1A4C 

74 

69 

6E 






1A4F 

75 

6F 

75 






1A52 

73 

20 

74 






1A55 

65 

73 

F4 





26 

27 

1A5S 

12 

02B6 



CALL 

FCKB 


28 

1A5B 

50 

80 



JNC 

SETUPS 

7 IF ariY char THEN exit 

29 

1A5D 

12 

066B 



CALL 

RING 

7 Rins bell 

30 









31 

1A60 

E4 




CLR 

A 


32 

1A61 

90 

5000 


STP8E1: 

MOV 

DPTR, #CHARMEM 

7 REPEAT point to char memory 

33 

1A64 

71 

21 



ACALL 

SFILL 

7 fi11 with char 

34 

1A66 

12 

02ES 



CALL 

LKB 

; look at keyboard 

; IF any char THEN exit 

35 

1A69 

50 

D6 



JNC 

STPSEO 

36 

1A6B 

1A6C: 

04 




INC 

A 

7 b u m p 1 0 n e x t c h a r 

37 

70 

F3 



JNZ 

STP8E1 

7 UNTIL all combinations 

38 

1A6E 

E5 

40 



MOV 

A, ERRORS 


39 

1A70 

60 

CS 



JZ 

STP8E 

7 iJNTIL errors 

40 

41 

1A72 

El 

2C 



AJMP 

ERROR 

7 Jump to error routine 

42 









43 









44 









45 





; ; 

L8T - 

line #8 table 


46 









47 





; 

#L8T# 

contains the -jump 

table for line #8 in setup mode. 

48 









49 


1A74 



L8T 

EQU 

$ 


50 









51 

1A74 

31 




DB 

1 •- 


52 

sr.o 

1A75 

1A32 




DW 

STP8D 

7 Toggle character set 

•_'0 











c c c c c c c c c c c 


..1 . 1A29.42.21 ... 

2 1A2B 90 4000 

.3.1.A2E.71.2.1... 

4 1A30 80 AB 
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1 

1A77 

32 

DB 

•'2' 


2 

3 

1A78 

i9ED 

DW 

STP8B 

“ Fill screen 

■4 

5 

1A7A 

1A7B 

33 

1A21 

DB 

DW 

^3-' 

STP8C 

; Change attributes 

6 

7 

1A7D 

34 . 

DB 

•'4‘- 


8 

9 

1A7E ■' 

1A3A 

0004 L8TL 

DW 

EQU 

STP8E 

($~L8T)/3 

; Continuous test 
; Table length 


10 

11 


14 

15 



;? L8T2 - 

7 

1ine #8 table 2 


16 

17 



; *L8t2* 

; option- 

contains the Jump table 

for line #8 in -Fill screen 

18 

19 


IA 80 

L8T2 EQU 

$ 


20 

•71 

1 £kp.n 

PC 

DB. 

..Ke^SPAC^. 


22 

23 

1A81 

lAlD 

DW 

STP8B3 

; Access code (ignore) 

24 

25 

.IASS. 

op 

..DB. 

CR . 


26 

27 

1A34 

19DD 

DW 

SETUP8 

; Carriage return 

28 

•70 

1A86 

1A87 

88 

1AF6 

DB 

DW 

KB-.SETUP 

SETUPRET . 

? Exit setup mode . 

30 

31 

.•h f... 

1A89 

r:8 

..m. . 

.. K^.-,5^ET^P. .t. .H'B^SHF.T. 


32 

.3,3. 

IA 8 A 

1B02 

DW 

SETUPSAVE 

• Exit setup mode and save 

34 


0004 

L8TL2 EQU 

($~L8T2)/3 

; Table length 


36 


38 

oo 

;; L8. .r.. .l.in.<?. .#8.. 

40 

Al 

7 

5 «L8» displays setu.p . .in.fg.r.mat.i.on . for . l.in.e. .#8... 

42 

7 

43 


44 

45 

; ENTRY none 

46 

47 

; EXIT none 

48 

; USES all 


50 


<=il Ifiifif: 

E4 



L8S 

CLR 

A 

; Position . 

52 

5.3 1A8D 

71 

9D 



ACALL 

XST 


54 1A8F 

2A 

4D 

45 


DB 

•••*MENU 

1. CHAR SET-, ( •- ■'+&0H) 

1A92 

4^ 

. ^. .!5 ... 

20 





1A95 

... 4 .^.... 

.2A 

20 





1A93 . 

...2P. 

....29. 

....29. 
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1A9B 

31 

2E 

20 

1A9E 

43 

48 

41 

lAAl 

52 

20 

.53.. 

1AA4 

45 

54 

AO 


C C € 


c c c 


c c 


c c c 

































7 


7 7 7 7 7 


7 7 7 7 


7 
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1 

2 

1AA7 

lAAA 

90 

30 

1AE4 

3D 

03 


MOV 

JNB 

DPTR, #LN8B1 ? 

ACHR2, LSA 

Primary 

4 

lAAD 

90 

lAED 



MOV 

DPTR, #LNSB2 ? 

Auxi1iarv 

5 

lABO 

71 

AS 


LSA: 

ACALL 

XSTAT ; 

Character set 

6 









7 

1AB2 

71 

9D 



ACALL 

XST 


S 

1AB4 

20 

20 

20 


DB 

2. FILL SCREEN 3. 

ATTRIBUTES- 


1AB7 

20 

32 

2E 






lABA 

20 

46 

49 






lABD 

4C 

4C 

20 






lACO 

53 

43 

52 






1 ACS 

45 

45 

4E 






1AC6 

20 

20 

20 






1AC9 

20 

33 

2E 






lACC 

20 

41 

54 






lACF 

54 

52 

49 






1AD2 

42 

55 

54 






1AD5 

45 







9 

1AD7 

20 

20 

20 


DB 

4. TESTS (••■ ••■+80H) 



lADA 

20 

34 

2E 






lADD 

20 

54 

45 






lAEO 

53 

54 

AO 





10 









11 

1AE3 

22 




RET 



12 









13 









14 









15 









16 





; ; 

Lin© #8 

I setup mod© messages 


17 





; 




IS 









19 

1AE4 

6E 

6F 

72 

LN8B1 s 

DB 

n 0 rma 1 ' y ( +80H) 



1AE7 

6D 

61 

6C 






IAEA 

20 

20 

AO 





20 

lAED 

61 

6C 

74 

LN8B2: 

DB 

a 11©r nat S ( '© ' +80H) 



lAFO 

65 

72 

6E 






1AF3 

61 

74 

E5 
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1 


. . 

SETUPRET - return from 

setup mode 

2 

3 


; 

#SETUPRET# exits setup 

mode without permanently saving 

4 

5 



any values that have changed. 

6 

7 


7 

7 

ENTRY 

none 


8 

9 


; 

EXIT 

none 


10 

11 


7 

USES 

none 


12 . . 

13 

14 

15 

1AF6 

1AF9 

30 37 06 SETUPRET! 

20 15 03 

JNB 

JB 

L250N, SRET 
L25EN, SRET 

? IF 25th line is on AND 
; IF not enabled for user THEN 

16 

17 

lAFC 

lAFF 

02 1E69 

E4 SRET: 

JMP 

CLR 

DISPSTAT 

A 

; display stats and return 

IS 

IBOO 

SO 2C: 

SUMP 

SCLRL 

; ELSE clear line and return 


c c c 


c c c 


c c c c 


c 






































3 3 3 3 
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1 



. . 

SETUPSAVE - save setup 

confisurat i on 

!*-! 




*SETUPSAVE* returns all 

values back to the EAROM. 

4 

5 



? 




6 



? 

ENTRY 

n n e 


7 



; 




9 



. 

EXIT 

none 


10 



; 

USES 

a 1 1 


11 







12 







13 

1 B 02 

FI 

22 SETUPSAVE: 

ACALL 

NVRCHK 

■ Checksum the NVRAM 

14 

15 

1B04 

F5 

34 

MOV 

NVRSUM, A 

• Update checksum value 

16 

1B06 

78 

25 

MOV 

PTRl, #25H 

; EAROM store 

17 

1B08 

90 

7000 

MOV 

DPTR, #EAROM 


18 

IBOB 

7A 

10 

MOV 

INDXl, #16 

; i6 bytes 

19 







20 

IBOD 

E 6 

SAV 2 : 

MOV 

A, ©PTRl 

; REPEAT 

21 

IBOE 

c;4 


SWAP 

A 


22 

1BOF 

FO 


MOVX 

©DPTR, A 

? store upper nibble 

23 

IBIO 

A3 


INC 

DPTR 


24 

IBll 

i::4 


SWAP 

A 


25 

1B12 

FO 


MOVX 

©DPTRt a 

? store lower nibble 

26 

1B13 

A3 


INC 

DPTR 


27 

1B14 

08 


INC 

PTRl 

; bump pointers 

29 

1B15 

DA 

F 6 

DJNZ 

INDXI 7 SAV2 

; UNTIL done 

30 

1B17 

C:2 

00 

CLR 

EAROMSAVE 


31 

1B19 

D 1 

18 

ACALL 

WLATCH 

7 Save EAROM . 


IBIB 

D2 

00 

SETB 

EAROMSAVE 


33 

IBID 

D 1 

18 . 

ACALL 

WLATCH 

7 By toss 1 ins flas . 


34 

,35. IBIF.41.F 6 


AvIMP 


.SiETU.PR.ET. 


Ret.ur.n . .f r.qm .s.et.up. .rri.qde 
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1.5.1.SFILL.-. screen 


.3. 

. ; *SFILL-«- fills the complete screen 

with 

the data given 

it 

4 

; into the memory location given it. 

; 25th line however. 

It 

does not touch 

the 


6 

.7. 


8 




; 

ENTRY 

(A) = 

character to 

write 


9 




; 


(DPTR) 

= memory lo 

cation 

to start at 

10 




; 






. XI. 




; 

EXIT 

none 




12 

.13 




. 

USES 

DPTR, 

IMDXl/2 



14 










15 










16 

1B21 

7A 

18 

SFILL: 

MOV 

INDXl, 

#MAXLINE 


Go through all lines 

17 

1B23 

7B 

50 

SFILl: 

MOV 

INDX2, 

#NUMCHARS 


REPEAT 

18 

1B25 

FO 


SFIL2: 

MOVX 

©DPTR, 

A 


REPEAT write character- 

19 

1B26 

... .^3. 



INC 

DPTR 



bump pointer 

20 

1B27 

DB 

FC 


DJNZ 

INDX2, 

SFIL2 


UNTIL line is done 

. ZX. 

.XB29 ... 

... DA. 

....F.8. 


DJNZ 

INDXl, 

SFILl 


UNTIL screen is done 

22 

1B2B 

22 



RET 






cccccc cc ccc 






































7 


7 7 7 7 7 


7 7 7 7 7 
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1 





? •$ 

SCLRLR - 

setup clear line reverse 

video 

. 

3 





7 

f 

SdlF^'L - 

setup clear line 


. 4 ' 

5 





m 

7 

7 

*SCLRLR* clears 25th line with reverse video spaces. 

■ 6 
7 





m 

7 

7 

#SCLRL* clears 25th line and places the attributes passed 
to in on that line- 

.S’ 

9 





u 

m 

7 




. 10 

11 





7 

m 

7 

. ENTRY’ ’ 

(A) == lower tour bits used tor attributes 

. 12 

13 





7 

■ 

7 

.EJCIT. 

(A) = unchanged 


. i’4 

15 






. USES ’ 

a1 ^ 


. V6 

17 

1B2C 

74 

01 


SCLRLR: 

MOV 

A, #0000000IB ; 

Set for reverse video 

.I’S 

19 

1B2E 

CO 

EO 


SCLRL! 

PUSH 

ACC ; 

Save attributes 

’■ 2o 
21 

iBSo’ 

1B33 

■75 ■■ 
12 

P'6 

0B96 

is 


MOU 

CALL 

fe’, #MAkLiNE ; 

CLRLINE 

Clear line before display 

. 22 

23 

■l'B3<^’ • • 

’D’O. 

. P‘6 . 



.POP. 

ACC. ; 

Re s 1 0 re attributes 

. 2’4 

25 

l'B’3S ■ ■ 
1B3B 

■■’VO. 

53 

■■57SO ■ 

83 

EF 


MtiV 

ANL 

dSti^, ■#L 2 $MEH 

DPH, #atranl ; 

Point to attribute memory 

. 2^ 

27 

I’BSE’ • • 
1B40 

■7A . 

FO 

.SO. 


SLP: 

.MOV. 

MOVX 

I’ND):’!’,’ ' ’^NOMChARS 

©dptr, a ; 

REPEAT write attribute 

28 

29 

1B41 

1B42 

A3 

DA 

FC 



INC 

DJNZ 

tiPTR ; 

INDXl, SLP ; 

bump RAM pointer 

UNTIL done 

30 

1B44 

22 




RET 
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1 






GETNUM - t number trin«i 


4 

5 






.•s-GETNUM* . sets. .a. .nu.mber .f.rci.m. .0, ...25-5. f rcm the keybcard. The 

kevs "RETURN” finishes the number and "BACKSPACE" or 
.".DELETE" clears the complete number entered. The fourth 

6 

7 





. 

character received automatically 

makes the routine return. 

8 

9 





. 

ENTRY (A) “ position on 25th line to start 

10 





; 



11 





; 

EXIT (A) = number received (0. 

. 255) 

12 

13 





? 

(W0RK2) = number of chara 

cters Picked up 

14 

15 






USES all 


16 








17 

1B45 

FE 



GETNUM: 

MOV WORKl, A ; 

Original position 

13 

19 

1B46 

7F 

00 


GNUMO: 

MOV W0RK2, #0 ; 

Position count 

20 

21 

1B4S 

7C 

00 



MOV WORK, #0 ; 

Running total 

23 





; 

Get character 


24 

1B4A 

12 

1407 


GNUMl: 

CALL SFCKB ; 

Get next character 

26 

27 





' 

Check for end of line 


28 

29 

1B4D 

1B50 

B4 

EC 

OD 

02 

GNUMR: 

CJNE A, #CR, GNUM2 

MOV A, WORK : 

IF carriage return THEN 
get number and return 

30 

31 

1B51 

22 




RET 


33 





' 

Check for backspace or delete 


34 

35 

■iB52 ■■■ 
1B55 

■ ■ m 
so 

08 

03 

02 

GNUM2: 

CJNE A, #BS, GNUM2A ; 

SJMP GNUM2B 

IF backspace OR 

36 

37 

i’BS7 

’B4‘ 

7F 

OF 

GNUM2A: 

CJnE a, #RUBbut, GNUM^ ? 

IF delete tHEN 

38 

39 


■ ■ 




Clear current number 


40 

41 

iB5A 

1B5B 

60 

ED 


GNUM2B: 

libV A, W0RK2 

JZ GNUMl ; 

IF no cbars THEN skip it 

4l* 

43 

1B5D 

1B5E 

IE 

DF 

FD 


GNUM2L: 

DEC WORKl ; 

DJNZ W0RK2, GNUM2L 

REPEAT decrernent position 

UNTIL count = 0 

'44 

45 

1B60 

EE 




MOV A, WORKl 

get position 

46 

47 

l6‘6i' 

1B63 

20 

9D 

20 

20 


ACiALL XST ? 

DB S (••• 't-SOH) 

wipe out old number 

48 

1 &66 

AO 






49 

50 

i6‘6r ■■■ 

■'SO' 

D'D 



SJMP GNUMO ; 

start over again 

51 

52 





7 

7 

Check number and position 


53 

54 

1 B6*9 
1B6C 

BF 

80 

03 

E2 

02 

GNUM4: 

CJNE W0RK2, #3, GNUM4A ; 

SJMP GNUMR ; 

IF all chars THEN 
exit 

55 

56 

1B6E 

1B71 

B4 

50 

3A 

D7 

00 

GNUM4A: 

GNUM4B: 

CJNE A, #-'9- + l, GNUM4B 

JNC GNUMl ; 

C heck upper b o u n d s 



cccccc ccc 











































3 3 3 3 


3 
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1 

1B73 

B4 

30 

00 


CJNE 

A, #'0-, GNUM4C 


2 

3 

1B76 

40 

D2 


GNUM4C! 

JC 

GNUMl ; 

Check lower bounds 

4 

5 





? 

Calculate next number and display 


6 

1B78 

94 

30 



SUBB 

A, #'0' ? 

Subtract ASCII offset 

7 

1B7A 

CO 

EO 



PUSH 

ACC ? 

Save it 

8 

1B7C 

CC 




XCH 

A, WORK 


9 

1B7D 

75 

FO 

OA 


MOV 

B, #10 


10 

1B80 

A4 




MLIL 

AB ; 

num != num * 10 

11 

1B81 

2C 




ADD 

A, WORK 


i2 

iB82 

’Ft: ”■ 




MOV 

WORK, A ; 

num •- num + work 

13 

1B83 

DO 

EO 



POP 

ACC ? 

Restore number 

.i4’ 

iB85 ■ 

90 

1B93 



MOV 

DPTR, #GNUMS 


15 

1B88 

25 

82 



ADD 

A,DPL 


16 

1B8A 

■■F5'” 

’”82. 



MOV 

DPL, ’A ; 

Bump address ica'utioh^ 

17 

1B8C 

EE 




MOV 

A, WORKl ; 

Get position 

18 

I’BSD’ 

71 

A8 



ACALL 

XSTAT ? 

’Di spI ay 

19 

1B8F 

OE 




INC 

WORKl ; 

Bump position 

20 

1B90 

OF 




INC 

WdRK2 ? 

Bump count 

21 

1B91 

80 

B7 



SJMP 

GNUMl ; 

UNTIL done 

22 









23 





5 

Must not cross any pase boundaries 

24 





• 

1 




25 

1B93 

BO 

B1 

B2 

GNLIMS: 

DB 

(•'O'+SOH), ('I'+SOH), (-2 

' +80H) , ( •' 3 +80H) , ( •' 4 •' +80H) 


1B96 

B3 

B4 






26 

1B98 

B5 

B6 

B7 


DB 

( •••5'+80H), ( •'6 '+80H), ( -V 

+SOH ), ( •' 8 •' +SOH ), ( •' 9 *• +80H) 


1B9B 

B8 

B9 






27 









28 






IFC 

NE , HIGH < $ )-HIGH(GNUMS) 


29 






ERROR 

; 'GNUMS' crosses a page boundary 

30 






ENDC 
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1 




; ; 

XST - 

transmit string to 25th status line 

2 

3 




? 

•«-XST» 

places a string of displavable characters that 

4 

crj 





foil OUJ 

the CALL onto the 25th status line of the screen- 

6 

7 




; 

ENTRY 

(A) = position on 25th line 

8 

9 




■ 


String to be sent must immediatelv follow the call 
to this routine- Final character must have bit 

10 

11 




' 


seven set- 

12 

13 




• 

EXIT 

(A) = next position on 25th line 

14 

15 





USES 

A, DPTR, PtR4 . 

16 

17 

1B9D 

DO 

83 

XSTs 

POP 

DPH ; Get return address 

18 

19 

1B9F 

DO 

82 


POP 

DPL . 

20 

21 

IBAl 

71 

A8 


ACALL 

XstAt ; Output string 

23 

1 BAS 
1BA5 

CO 

CO 

82 

83 


PUSH 

PUSH 

DPL ; Place return address 

DPH ; back onto the stack 

24 

1BA7 

22 



RET 



cccccc cc ccc 
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1 





? ? 

XSTAT ~ 

transmit string to 25th status line 

2 

3 





» 

7 

*XSTAT* 

places a string of displavable characters onto 

4 

5 





7 

7 

the 25th status line of the screen. 

6 

7 





7 

m 

ENTRY 

(A) = position on 25th line 

8 ; (DPTR) ~ address «3f strinsi final character must have 

9 ? bit seven set. 

10 

11 






EXIT 

(A) = next position on 25th line 

12 

13 





; 


(DPTR) = position following string 

14 

15 






USES 

A, DPTR, PTRl 

16 

17 

1BA8 

75 

AO 

57 

XSTAT: 

MOV 

P2, #HIGH (L25MEM) ? Set address of memory 

18 

19 

IBAB 

IBAD 

24 

F8 

80 



ADD 

MOV 

A, #LOW (L25MEM> ? Add in offset to low bvte 

PTRl, A ; Point to memory 

20 

21 

IBAE 

E4 



XSTL: 

CLR 

A . 

22 

23 

IBAF 

1BPQ 

93 

A3 




Move 

INC 

A, @A+DPTR ; Get data bvte 

DPTR ; Bump ROM pointer 

24 

7’F=i 

IBBl 

1BB4 

20 

F2 

E7 

04 


JB 

MOVX 

ACC.7, XSTR ; IF bit set THEN exit out 

©PTRl, A ? Output data 

26 

27 

1BB5 

JBB6 

08 

80 

F6 



INC 

SUMP 

PTRl ; Bump RAM pointer 

XSTL 5 Go forever 

28 

29 

1BB8 

54 

7F 


XSTR: 

ANL 

A, #7FH ; Mask off high bit 

30 

31 

IBBA 

F2 

...E.8. 




MOVX 

MOV 

©PTRl, A ? Output last data 

A, PTRl " Get pointer 

32 

IBBC 

.l.BRE... 

24 

... ^’2. 

81 



ADD 

RET 

A, #-LOW (L25MEM) + 1 ? Subtract offset 

; Return 


i 
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1 




. . 

XLONOFF 

- transmit string " 

ON " 

or "OFF" to 25th status line 

f' 





XLONOFF * d i s p 1 a. y s " ON " o r 

"OFF 

" as 

indicated bv the carrv 

4 





flag. 





6 

7 





ENTRY 

(A) = position on 2 

:5 th 

1 i ne 


p; 

9 




; 


(c) = 0 indicates ” 

OFF" 

1 

indicates "ON" 

10 

11 





EXIT 

(A) = ne.xt position 

on 

25 th 

1 i ne 

12 

13 





USES 

A, DPTR, PTRl 




14 

15 

IBBF 

90 

1BC9 

XLONOFF: 

MOV 

DPTR, #LNOFF 


■ Get the "OFF" message 

16 

17 

iBC2 

1BC4 

50 

90 

03 

IBCC 


JNC 

MOV 

XLONl 

DPTR, #LNON 


; IF 

carry set THEN 
get the "ON" message 

IS 

19 

1BC7 

61 

A8 

XLONl: 

AJMP 

XSTAT 


? Display message and return 

20 . 

21 


1BC9 

6F 

66 E6 

LNOFF: 

DB 

• of •••+0OH) 




24 

IBCC 

6F 

6E AO 

LNONs 

DB 

0 n •' +SOH) 





c c c c c c 


c c 


c c c 





































3 3 3 3 9 


3 3 3 3 


3 
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1 




; ; 

XMTS - 

transmit string 


5: 

3 





*XMTS# 

transmits a string 

of characters out of the terminal 

4 





regardless of whether the 

terminal is on line or not- 

6 

7 





ENTRY 

String to be sent 

must immediately follow the call 

.3 

9 






to this routine, 
seven set. 

Final character must have bit 

. ro¬ 
ll 





EXIT 

none 


.12" 

13 





USES 

A, DPTR 


14 

15 

. 16" 

17 

-I'B-dF" ■ ■ 
IBDl 

• • • DO- - - - 
DO 

----8-3 . 

82 

XMTS: 

. POP 

POP 

DPH 

DPL 

? (DPTR) = first character 

. 

19 

1BD3 

E4 


XMTSl: 

CLR 

A 


20 

21 

1BD4 

1BD5 

93 

20 

E7 

06 

Move 

JB 

A, ©A+DPTR 

ACC.77 XMTS2 

7 REPEAT fetch character 
; IF bit 7 set THEN exit 


-l-BtiS- • • 
IBDB 

- - -ri'- 

A3 

••••l39B--- 


. CALL' ■ ■ ■ 

INC 

-TR-AN-SMlT 

DPTR 

7 transmit character 

7 bump pointer 

14 

25 

IBDC 

80 

F5 


SJMP 

XMTSl 

7 until forever 

.^6- 

27 

IBDE 

IBEl 

■ ■ ■ 12- - • ■ 
74 

139B 

01 

XMTS2: 

CALL 

MOV 

TRANSMIT 

A, #1 

7 Transmit last character 

28 

1BE3 

73 



JMP 

©A+DPTR 

7 Return to code after string 
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1 






XMTC -- 

transmit character 


? 






#XMTC# 

transmits one character at 

the current cursor position 

4 





*1 

including the appropriate escape sequences for entering and 
exi ting the graph i •-«; and attribute mo deg for the mode the 

6 

7 






terminal is in. If the character- 

action is taken. 

is protected then no 

3 

9 





7 




10 

11 





? 

ENTRY 

(A) = current transmit mode 

XPOS and YPOS point to screen coordinate 

12 

13 





7 

7 

EXIT 

(A) = current transmit mode (updated) 

14 

15 





7 

USES 

al 1 


16 

17 

IS 

19 

1BE4 

1BE6 

CO 

CO 

21 

EO 


XMTC: 

PUSH 

PUSH 

ATTRIBUTES ? 

ACC ; 

Save attribute bvte 

Save current attributes 

20 

21 

IBES 

30 

25 

OA 


JNB 

GATM, XLO ; 

IF not GATM THEN 

22 

IBEB 

IBEE 

12 

50 

0188 

05 



CALL 

JNC 

CPF ; 

XLO ? 

c h e c k f 0 r p r o t e c t e d 

IF protected THEN 

■ ■ 24’ 
2'5 

‘iBPo 

1BF2 

DO 

DO 

EO 

21 



POP 

POP 

ACC ; 

ATTRIBUTES 

restore values 

26 

27 

1BF4 





RET 


and return 

28 

29 

1BF5 

1BF7 

E5 

85 

11 

12 

FO 

XLO: 

MOV 

MOV 

A, XPOS 

B, YPOS 


30 

31 

IBFA 

12 

0503 



CALL 

CLA ; 

Calculate line address 

33 

lOFti” 

■ ■ DO 

FO ■ ■■■ 



POP 

B ; 

Get current attributes 

S4 

TBFF'' 

1C02 

■ ■ 53‘ 
EO 


•'FF . 


ANL 

MOVX 

DPH, #ATRANL ? 

A, ©DPTR 

Mask to attribute mefriorv 

.36 

37 

IC03‘ ■ ■ 
1C05 

• FS- 
43 

.21. 

S3 

10 


MOV 

ORL 

AtTRiBUtES, A ? 

DPH, #CHRORL ? 

Get current attributes 

Mask to character memorv 

33 

39 

ICOS" 

1C09 

■ ■ F0‘ 
A2 

E7 



MOVX 

MOV 

A, ©DPTR 

C, ACC.7 ; 

Get alt char flag 

. 40' 

41 

iCoB 

ICOD 

92 

54 

oc ■ ■ 

7F 



MOV 

ANL 

ALTCHARA, C ? 

A, #7FH ; 

Place in proper location 

Mask alternate char set 

. 42‘ 

icor ■ ■ 

■ ■ C2’ 

. ocr ■■ 



CLR 

GRPH ; 

Clear graphic flag 


43 


^4• IC:11.B4.20.00.CJKlE. A;‘# ‘XLOA 


45 1C14 

40 

07 


XLOA: 

JC 

XLI 

7 IF graphic char THEN Jump 

46 1C:1‘6 

■ ■ B4. 

■■■■yp. 

■OF. 


CJNE 

A, #RUBOUT, XL3 

5 IF disp1avab1e THEN J ump 

47 








.43. 




; 

Character is graphic 


49 




; 




.50 TC:19 ’ 

■74 . 

■ ■ ■■ 5E. 



MOV 

A, 

; Map 7Fh to 5Eh 

51 ICIB 

80 

09 



SJMP 

XL2 


.52. 

53 ICID 

B4 

IF 

04 

XLi: 

CJNE 

A, #1FH, XLIA 

; Special case map 

.54' 1C:20 ■ ■ 

■74 . 

5F 



MOV 

A, 


55 1C22 

80 

02 



SJMP 

XL2 


S ‘6 1C24 

44 

60 


XLIA: 

ORL 

A, #onoooooB 

7 Make graphic printable 

57 









c c c 


c c c 


c 


c c c 


c 

























































3 


:> } 3 3 3 


7 2 0 0 


0 
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1 iC26 D2 OD XL2: SETB GRPH ? Set graphic flag 

. ^ .. 

3 ? Save character to output 

4 ? 

5 1C28 CO EO XL3: PUSH ACC 

. 6 . 

7 ; See if character is graphic character 

. 8 .?■. 


9 

1 C 2 A 

20 

OD 

30 


JB 

GRPH, 

XL4 

; 

IF not graphic AND 

. 10 • 











11 

1C2D 

30 

F5 

5D 


JNB 

B.5, 

XL7 

? 

IF previous was graphic THEN 

. 12 ' 

'icso' ■ ■ 

•"C 2 . 

' "FS. 



CLR 

B.5 


7 

clear graphic flag 

13 











.i-4' 

■i:832' ■ ■ 

'30. 

' ■" 40 

. 22 . 


. JNB 

ANSI, 

X'L38 

; 

IF ANSI mode 'THEN 

15 

1C35 

20 

F4 

13 


JB 

B.4, 

XL3B 

1 

IF previous not alt THEN 

.16- 

'l'C'38' ■ ■ 

"20 . 

■••"oc. 

.0'9. 


.JB' 

ALTCHARA, XL3A 


IF this not alt THEN 

17 

1C3B 

71 

CF 



ACALL 

XMTS 


; 

transmit "EXIT GRAPHIC MODE" 

.18- 

' 1 C: 8 D ■ 

' 1 B. 

• • 5B. 

■ "3'1 " 


£iB 

ESC, 

•'Cll', ( •••nrr-+80H) 




1C40 

31 

ED 








19 

1C42 

80 

49 



SJMP 

XL7 




20 











. 2 T ‘ 

■l'C44’ • ■ 

"71. 

""'CF. 


XL'3A: 

ACaLL 

■ ■ XrtTS 


; 

ELSE this is alt THEN 

22 

1C46 

IB 

28 

B1 


DB 

ESC, 

( • l-'+SOH) 

; 

transmit "ENTER ALT MODE" 

.23'1849 " 

"80 . 

2E 



SJliP 

XL4SET 

; 

flag in alt now 

24 











.25' 

■l'C:4B' ■ ■ 

• • 20 . 

" 'O'c. 

F 6 

XL3B: 

."JB 

ALTCHARA, XL3A 

; 

ELSE IF this not alt THEN 

26 

1C4E 

71 

CF 



ACALL 

XMTS 


7 

transmit "ENTER NORMAL" 

27 

1C50 

IB 

28 

C2 


DB 

ESC, 

•••( •', (•••B- +80H) 



28 

1C53 

C2 

F4 



CLR 

B.4 


7 

flag in normal now 

29 

1C55 

80 

36 



SJMP 

XL7 




30 











31 

1C57 

"71. 

CF 


XL3C: 

ACALL 

XMTS 


; 

ELSE transmit in ZDS mode 

32 

1C59 

IB 

C7 



DB 

ESC, 

(-G'+SOH) 



33 

I'OSB' 

••'80 . 

.30"" 



SJMP 

XL7 




34 











35 

1C5D 

20 

F5 

.2D. 

XL4: 

JB 

B.5, 

XL7 

; 

IF previous not graphic THEM 

36 

1C60 

D2 

F5 



SETB 

B.5 


? 

flag changes 

37 











38 

1C62 

30 

40 

24 


JNB 

ANSI, 

. XL4C 

; 

IF ANSI mode THEN 

39 

1C65 

'"'20 . 

F4 

15 


JB 

B.4, 

XL4B 

, 

IF previous normal THEN 

40 

1 C 68 

20 

OC 

09 


JB 

ALTCHARA, XL4A 

; 

IF not alt char THEN 

41 

1C6B 

71 

CF 


XL4AA: 

ACALL 

XMTS 


5 

transmit "ENTER GRAPHIC" 

42 

1C6D 

IB 

5B 

31 


DB 

ESC, 

•CIO', ('m'+SOH) 




1C70 

30 

ED 








43 

1C72 

80 

19 



SJMP 

XL7 




44 











45 

1C74 

71 

CF 


XL4A: 

ACALL 

XMTS 


. 

, 

ELSE 

46 

1C76 

IB 

28 

BO 


DB 

ESC, 

•'(■', (•••0-+80H) 


transmit "ENTER ALT GRAPHIC" 

47 

1C79 

D2 

F4 


XL4SETS 

SETB 

B.4 



flag in alt now 

48 

1C7B 

80 

10 



SJMP 

XL7 




49 











50 

1C7D 

20 

OC 

F4 

XL4BS 

JB 

ALTCHARA, XL4A 


ELSE this is normal THEN 

51 

1C80 

71 

CF 



ACALL 

XMTS 


; 

transmit "ENTER NORMAL" 

52 

1 CS 2 

IB 

28 

C 2 


DB 

ESC, 

••• ( •' ( 'B'+SOH) 



53 

1C85 

C2 

F4 



CLR 

B.4 


; 

flag in n 0 rma 1 n 0 w 

54 

1C87 

80 

E2 



SJMP 

XL4AA 

; 

and Place into graphic 

55 
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1 

1C39 

71 

CF 


XL4C: 

ACALL 

XMTS 


, 

ELSE transmit in ZDS mode 

2 

1C8B 

IB 

C6 



DB 

ESC, 

(•••F - +SOH> 



4 

5 






See if 

character is in reverse 

video 

6 

7 

1C8D 

C2 

D5 


XL7S 

CLR 

FO 



Clear "CHANGE" flag 

8 

1C8F 

20 

08 

OE 


JB 

RWA, 

XL8 

; 

IF current not rev video AND 

9 

1C92 

30 

FO 

IB 


JNB 

B.O, 

XL9 

7 

IF previous was rev video THEN 

10 

11 

1C95 

C2 

FO 



CLR 

B.O 



clear rev video 

12 

1C97 

20 

40 

14 


JB 

ANSI, 

XL8A 

; 

IF ZDS mode THEN 

13 

1C9A 

71 

CF 



ACALL 

XMTS 


? 

output "EXIT REV VIDEO" 

14 

iC9C 

IB 

FI 



DB 

ESC, 

(•••g - +80H) 



15 

1C9E 

80 

10 



SJMP 

XL9 




16 











17 

ICAO 

20 

FO 

OD 

X 

r 

CO 

JB 

B.O, 

XL9 

; 

IF previous not rev video THEN 

i!$ 

it: A3 

D2 

FO 



SETB 

B.O 


; 

set rev video 

19 











20 

iCA5' 

20 

40 

06 


JB 

ANSI, 

XL8A 

; 

IF ZDS mode THEN 

21 

1CA8 

71 

CF 



ACALL 

XMTS 


; 

output "ENTER REV VIDEO" 

22 

ICAA 

IB 

FO 



DB 

Fsc, 

(•'p-'+SOH) 



23 

1C AC 

80 

02 



SJMP 

XL9 




24 











25 

ICAE 

D2 

D5 


XL8A: 

SETB 

FO 


; 

ELSE flag changes 

26 

27 





; 

See i f 

character is underline 



28 

29 

ICBO 

20 

09 

07 

XL9: 

JB 

UNDLNA, XLIO 

. 

IF not underline AND 

‘30 ■ 











31 

1CB3 
■lt:B6 ■■ 

30 

FI 

OB 


JNB 

B. 1, 

XLll 

; 

IF previous was underline THEN 

32 

■ C:2‘ 

.1^1' 



.CLP. 

B. 1 


; 

clear underline flag 

33 

1CB8 

80 

05 



SJMP 

XLIOA 

; 

flag changes 

.34' 











35 

ICBA 

20 

FI 

04 

XLIO: 

JB 

B. 1, 

XLll 

; 

IF previous not underline 

36 

iCBO ■■■ 

■ ■ DS' 

.FI ■ 



.3Ft3• • • 

■b:!' 


; 

flag changes 

37 

ICBF 

D2 

D5 


XLIOA: 

SETB 

FO 




.38' 











39 





; 

See if 

character is blinking 



40 





; 






41 

ICCl 

20 

OA 

07 

XLll: 

JB 

BLINKA, XL12 

; 

IF not h1inking AND 

42' 











43 

1CC4 

:30 

F2 

OB 


JNB 

B.2, 

XL13 

; 

IF previous was blinking THEN 

44 

ICC/ ’ 

■ iC2‘ 

.F2 ■ 



CLR 

B.2 


; 

clear blinking flag 

45 

1CC9 

80 

05 



SJMP 

XL12A 

; 

flag changes 

46 ■ 











47 

ICCB 

20 

F2 

04 

XL12: 

JB 

B.2, 

XL13 

; 

IF previous not blinking THEN 

.48' 

TCCE' ■ ■ 

•D'2' 

.F2 ■ 



SETB 

B.2 


7 

flag changes 

49 

ICDO 

D2 

D5 


XL12A: 

SETB 

FO 




50 











51 





; 

See i f 

character is half intensitv 


.S'2^' 





; 






53 

1CD2 

20 

OB 

07 

XL13: 

JB 

HALFIA, XL14 

; 

IF not half AND 

.54 ‘ 











55 

1CD5 

30 

F3 

OB 


JNB 

B.3, 

XL15 

; 

IF previous was half THEN 

56 

ICDS 

C2 

F3 



CLR 

B.3 


; 

clear half flag 

57 

ICDA 

80 

05 



SJMP 

XL14A 

1 

flag changes 


c c c c c 


c c c c 











































3 


3 


j 5 

3 3 3 
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1 

3 

ICDC 

ICDF 

.20 

D2 

F3 

F3 

04 

XL14: 


JB 

SETB 

B.3, XL15 

B. 3 ; 

IF previous not half THEN 
flag changes 

4 

5 

ICEl 

D2 

D5 


XL14A: 


SETB 

FO 


6 

7 





It 


Se€- i f 

character is alternate graphic 

8 

9 

1CE3 

20 

OC 

19 

XL15! 


JB 

ALTCHARA, XL16 ? 

IF not alt AND 

10 

11 

1CE6 

1CE9 

30 

i::2 

F4 

F4 

31 



JNB 

CLR 

B.4, XL17 ; 

B.4 

IF previous was alt THEN 
clear alt flag 

12 

13 

ICEB 

30 

40 

2A 



JNB 

ANSI, XL16B ; 

IF ANSI mode THEN 

14 

15 

ICEE 

ICFO 

71 

IB 

CP 

28 

C2 



ACALL 

DB 

XMTS ; 

ESC, •••(•', ('B'+SOH) 

transmit "EXIT EVERYTHING" 

16 

17 

1C:F3 

30 

F5 

24 



JNB 

B.5, XL17 

IF graphics mode THEN 

18 

19 

1C:F6 

1CF8 

71 

IB 

CF 

5B 

31 



ACALL 

DB 

XMTS ; 

ESC, 'CIO-, (-m'+SOH) 

transmit "ENTER GRAPHIC MODE" 

20 

ICFB 

ICFD 

30 

80 

ED 

IB 




SJMP 

XL17 


21 

22 

ICFF 

20 

F4 

.18 . 

XL16: 


JB 

B.4, XL17 ; 

IF previous not alt THEN 

23 

24 

1 D02 

D2 

F4 




SETB 

B.4 ; 

flag changes 

25 

26 

1D04 

1D07 

30 

20 

40 

F5 

11 

07 



JNB 

JB 

ANSI, XL16B ? 

B.5, XL16A ; 

IF ANSI mode THEN 

IF no graphics THEN 

27 

28 

IDOA 

IDOC 

71 

IB 

CF 

28 

B1 



ACALL 

DB 

XMTS ; 

ESC, •'(•••, (-I'+SOH) 

transmit "ENTER ALT MODE" 

29 

30 

IDOF 

80 

09 




SJMP 

XL17 


31 

32 

IDll 

1D13 

71 

IB 

CF 

28 

BO 

XL16A: 


ACALL 

DB 

XMTS ; 

ESC, •-(-•, ('O'+SOH) 

ELSE transmit "ENTER ALT GRAPHIC" 

33 

34. 

1D16 

80 

02 




SJMP 

XL17 


35 

36 

1D18 

D2 

D5 


XL16B: 


SETB 

FO 


37 

38 







Transmit any changes 


39 

40 

IDIA 

30 

D5 

46 

XL17: 


JNB 

FO, XL20 ; 

IF no changes THEN skip 

41 

42 

IDID 

20 

40 

IF 



JB 

ANSI, XL18 ; 

Check for mode 

43 

44 





7 

" 


ZDS mode changes 


45 

46 

1 D20 
.1022... 

71 

CF 
. .F3 




ACALL 

DB 

XMTS ; 

ESC, (-s'+SOH) 

set attributes 

47 

48 

1D24 

.IP.26. 

CO 

FO 

FO 




PUSH 

MOV 

B ; 

. A, B 

save attributes 
reorder bits 

49 

50 

1D28 

1D29 

13 

13 





RRC 

RRC 

A ; 

A ; 

get reverse video 
get under 1ine 

51 

52 

1 D2A 
1D2C: . 

92 

...13 

F3 




MOV 

RRC 

B.3, c ; 

A ; 

put in position 
get blink 

53 

54 

1020 

1D2F 

92 

13 

FI 




MOV 

RRC 

B. 1, c ; 

A .. * 

put in position 
get half intensity 

55 

56 

1D30 

1D32 

92 

E5 

F2 

FO 




MOV 

MOV 

B.2, c ; 

A, B 

put in position 






































Z29R0M? 

MICROBENCH 

8051 CROSS 

ASSEMBLER (VI)-218 

24-FEB-S3 15: 

30:06 PAGE 224 


Z-2'- 

? COMPUTER TERMINAL FIf 

RMWARE 

VERSION 1,03 




1 

1D34 

54 

IF 



ANL 

A, #0001 111 IB 

’ ma 5 k pr 0 per- bits 

2 

1D36 

24 

30 



ADD 

A, #-0- 

“ add offset f 0 r se<=!uence 

3 

1D38 

12 

139B 



CALL 

TRANSMIT 

■ output attribute data 

4 

1D3B 

DO 

FO 



POP 

B 

■ restore attributes 

5 

1D3D 

80 

24 



SUMP 

XL20 


6 

7 






ANSI mode chandles 


9 

1D3F 

71 

CF 


XL18: 

ACALL 

XMTS 

? clear anv prev attributes 

10 

11 

1D41 

IB 

5B 

BO 


DB 

ESC, •••[ •••, ( -O- h-SOH) 


12 

1D44 

30 

F3 

04 


JNB 

B.3, XL18B 

; IF half intensity THEN 

13 

1D47 

71 

CF 



ACALL 

XMTS 


14 

15 

1D49 

3B 

B2 



DB 

( •-2 '+80H) 


16 

1D4B 

30 

FI 

04 

XL18B: 

JNB 

B.l, XL18C 

; IF underline THEN 

17 

1D4E 

71 

CF 



ACALL 

XMTS 


IS 

1D50 

3B 

B4 



DB 

( •••4 - +SOH) 


19 









20 

1D52 

30 

F2 

04 

XLISC: 

JNB 

B.2, XLISD 

; IF blinkinsi THEN 

21 

1D55 

71 

CF 



ACALL 

XMTS 


?? 

1D57 

3B 

B5 



DB 

( •••5 - +80H) 


24 

1D59 

30 

FO 

04 

XL180: 

JNB 

B.O, XL18E 

; IF reverse video THEN 

25 

1D5C 

71 

CF 



ACALL 

XMTS 


26 

27 

1D5E 

3B 

B7 



DB 

(••■7 - +SOH) 



1D60 

71 

CF 


XLISE: 

ACALL 

XMTS 

; output last character 

29 

1D62 

ED 




DB 

( •Tti '+.SOH) 


30 









31 

1063 

DO 

EO 


XL20: 

POP 

ACC 


■f? 

1065 

12 

139B 



CALL 

TRANSMIT 

; Output character 

34 

1069 

5.3 

FO 

3F 


ANL 

B, #00111111B 

" Mask previous 

35 

106B 

E5 

21 



MOV 

A, ATTRIBUTES 


36 

1060 

54 

3F 



ANL 

A, #001 mi IB 

■ Mask current 

37 

1D6F 

45 

FO 



ORL 

A, B 

7 Combine to make new previous 

3.9 

1071 

DO 

21 



POP 

ATTRIBUTES 

" Restore true attributes 

39 

1073 

22 




RET 




c c c 


c c c 


c c c c c 
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### . 

1 

. . 

XMTL - transmit line- . 

2 

r-5 

? 

XMTLl - entry to transmit line 

4 

5 

" 

? 

*XMtL» transmits the entire contents of the line as defined 

by transmit character *XMTC#. . 

6 

7 

T 

? 

»XMTL1» needs a current transmit mode. 

.8. ? 

Q ; . 

10 

11 

■ 

7 

entry (A) = current transmit mode (-h-XMTLI*) 

YPOS points to screen line 

12 

13 

7 

5 

EXIT (A) = current transmit mode (updated) 

14 

15 

7 

u 

7 

USES all 


16 


18 iD74 

19 1D75 

E4 

CO 

11 


XMTL: 

XMTLl: 

CLR 

PUSH 

A 

XPOS 

• Start with no attributes 
; Save current position 

20 1D77 

75 

11 

00 


MOV 

XF'dS, #6 

; start at bes«inninsi of line 

21 1D7A 

71 

E4 


XML2: 

ACALL 

XMTC 

• REPEAT transmit character 

. 22 iD7C 

05 

11 



INC 

XPdS 

; bump position 

23 1D7E 

AC 

11 



MOV 

WORK, XPOS 


24 1D80 

BC 

50 

F7 


CJNE 

WORK, #NUMCHARS, XML2 

; UNTIL done 

25 1D83 

DO 

11 



POP 

XPOS 

; Restore position 

26 1D85 

FC 




MOV 

WORK, A 

; Save (A) 

27 1D86 

12 

04EA 



CALL 

BLINAD 

; Update address 

.28 iD89 ■ 

EC 




MOV 

A, WORK 

; Restore (A) 

29 1D8A 

22 




RET 


• Return 
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1 



SXMTC - 

special transmit character 

3 


7 

*SXMTC:* 

transmits the character at the current cursor 

4 

5 


9 

7 

position 

as defined bv transmit character -s-XMTC*. 

6 

7 


7 

ENTRY 

none 

8 

9 


7 

• 

7 

EXIT 

none 

l6 


9 

7 



11 



USES 

al 1 

12 .. 


.T4' 

iti56 ■ 


40 

OF 

S)<Mtt:: ■ ■ 

JNB 

ANSI, sxci 

; IF ANSI mode tHEN 

15 

1D8E 

12 

09D1 



CALL 

GNP 

; get parameter 

16 

lD9i 

60 

19 



.jz . 

XMTP 

; IF zero THEN xmt pase 

17 

1D93 

14 




DEC 

A 


18 

1D94 

60 

1'2 



Jt 

SXMTL 

; IF one THEN xmt line 

19 

1D96 

14 




DEC 

A 


20 

1D97 

60 

04 



JZ 

SXCl 

? IF two THEN xmt character 

21 

1D99 

14 




DEC 

A 


.22 ■ 

'Iti9A 

■ ■ 60. 

' • 2A. 



. jl . 

■■•XMT25. 

; IF three THEN xmt 25th line 

23 

1D9C: 

22 




RET 


‘ ELSE return 

24 

.• 

1D9D 

CO 

3F 


SXCl: 

PUSH 

PFIELD 

; Save protected fields 

26 

1 D'9F 

75 

5F 

00 


MdV 

FFfELti, #0. 

; Make none protected 

27 

1DA2 

E4 




CLR 

A 

; No attributes set 

28 

1D A3 

71 

E4 



ACALL 

XMTC 

• Transmit character 

29 

1DA5 

DO 

3F 



POP 

PFIELD 

• Restore protected fields 

50 

IDA 7' 

“ ■ 22. 




Ret 




c c c c c c c c c c c 















































3 3 3 3 


3 
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1 




. . 

SXMTL “ 

special transmit line 







»SXMTL# 

transmits the 

entire contents of the line as 

defined 

4 

5 





bv transmit character 
bv a carriage return- 

^i-XMTC#. The end of the line is 

signaled 

6 ? 

7 ; . 





■ 

ENTRY 

none 



10 

11 




. 

EXIT 

none 



12 

13 




‘ 

USES 

al 1 



14 

15 

1DA8 

B1 

74 

SXMTL: 

ACALL 

XMTL 

; Transmit line 


■ ■ 16 

itiAA••• 

80 

.14. 


SUMP 

XMP3 

7 Send CR 7 bell 7 and 

return 
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.1. 




. . 

XMTP - 

transmit pase 

.3. 




? 

*XMTP# 

transmits the entire contents of the pase (excluding 

4 

5 




. 

25th line) as defined bv transmit character »XMTC*. The end 
. of the pase is signaled bv a carriase return. 

6 

.. 7 








9 




7 

ENTRY 

none 


10 

.1.1. 




. 

EXIT 

none 


12 

13 





USES 

al 1 


14 

15 

IDAC 

E4 


XMTP! 

CLR 

A 

' Start with no attributes set 

16 

17 

IDAD 

IDAF 

CO 

12 

12 

00 

PUSH 

MOV 

YPOS 

YPOS, 

; Save current position 

#0 

18 

. X?. 

1DB2 

.1.TO4... 

B1 

05 

75 

. X2 . 

XMPl: 

ACALL 

INC 

XMTLl 

YPOS 

? REPEAT transmit line 
• bump position 

20 

.21 . 

1DB6 

xxm ... 

’ * AC 
...P.C.. 

12 

.13.. 

F7 

MOV 

CJNE 

WORK, 

WORK, 

YPOS 

#MAXLINE, XMPl ; UNTIL done 

22 

..23. 


.. Ml 


XMP2: 

POP 

YPOS 

• Restore position 

24 

. . 25 

IDBD 

12 

04EA 


CALL 

BLINAD ; Update address 

26 

27 

IDCO 

1DC2 

71 

8 D 

CF 

XMP3: 

ACALL 

DB 

XMTS ; Send CR to terminate page 

(CR+80H) 

28 

29 

1DC3 

02 

066B 


JMP 

RING 

• Signal done to user 


c c c 


c c c 


c 


c 


c c 


c 
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1 





XMT25 ~ 

transmit 25th line 

. 2 ■ 

3 




7 

m 

7 

*XMT25* 

transmits the 25th line in the same manner as *XMTL* 

.4- 

5 




m 

7 

7 

but onlv if the 25th line is enabled. The end of the line 
is signaled bv a carriage return. 

’6 

7 




7 

m 

7 



. S' 

9 




7 

7 

. ENTRV ■ ■ 

hone 

. W' 

11 




a 

7 

a 

7 

. EX'I’t " " 

hone 

. 12' 

13 




7 

. 

al 1 

. 14' 

15 

1DC6 

30 

15 F7 

XMT25: 

JNB 

L25EN, XMP3 ? IF 25th line enabled THEN 

.l-^^■ 

17 

■1DC9 • 
IDCB 

"CO . 

75 

"12: . 

12 18 


. FU6H" 

MOV 

ypOS ; save current position 

YPOS, #MAXLINE ? do 25th line 

. IS' 

19 

itSCE" 

IDDO 

■ ’ '61 

80 

■ '74 . 

E9 


. A'CAll 

SJMP 

X'MTL ? transmit 25th' 1 i'ne 

XMP2 ? restore » update* return 
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1 




. . 

PRINT - 

print page 


2 

3 




II 

? 

*PRINT# 

acts exactlv like -k-XMTP# 

(transmit page) except that 

4 

5 




? 

7 

the data goes out to the oPF=»osite 
. a carriage return and line feed- 

port and everv line ends with 

6 ; . 

7 ; 

8 

9 




1 

7 

ENTRY 

none 


10 

11 




7 

EXIT 

none 


12 

13 





USES 

ai 1 


14 

15 

1DD2 

D2 

23 

PRINT: 

SETB 

PRNTF ; 

Flag printing 

16 

17 

1DD4 

12 

13C4 


LCALL 

DOXOFF ; 

Output an XOFF 

18 

19 

ir;iD7 

D1 

OF 


ACALL 

CMPORT ; 

Toggle port 

20 

21 

1DD9 

CO 

3F 


PUSH 

PFIELD ; 

Save protected fields 

22 

23 

IDDB 

75 

3F 

00 

MOV 

PFIELD, #0 

Make al1 unprotected 

24 

25 

1 DDE 
IDDF 

E4 

CO 

12 


CLR 

PUSH 

A 

YPOS ; 

Start with no attributes set 

Save current position 

26 

27 

IDEl 

75 

12 

00 

MOV 

YPdS, #0 


28 

29 

lbE4 

1DE6 

B1 

CO 

75 

EO 

PRNTl: 

ACALL 

PUSH 

XMTLl ; 

ACC ; 

REPEAT t r a n s mit line 
save attributes 

30 

31 

i bE8 
IDEA 

71 

OD 

CF 

8A 


ACALL 

DB 

XMTS ; 

CR, (LF+80H) 

transmit CR and LF 

32 

33 

i DEC 

DO 

EO 


FdP ■' 

ACC .;■ 

restore attributes 

34 

35 

IDEE 

IDFO 

05 

AC 

12 

12 


INC. 

MOV 

YPCiS'. 

WORK, YPOS 

bump position 

36 

37 

1DF2 

BC 

18 

EF 

C JNE. 

WORK, #MAXL1NE, PRNn” 'V 

Until done 

33 

39 

iDFS 

1DF7 

Do’ 

12 

12 

04EA 


FdF 

LCALL 

YEdd . 

BLINAD ; 

Restore position 

Update address 

'46 

41 

IDF A 

DO 

3F 


POP 

PFIELD ; 

Restore protected fields 

'42 

43 

IDFC 

D1 

OF 


ACALL 

CMPORT ; 

Toggle port again 

44 

45 

IDFE 

20 

22 

03 

JB 

HSSTOPF, PRNT2 ; 

IF not hold screen THEN 

46 

47 

1 E’Ol 

■12' 

i 3D5 


.LCALL ■ 

DdXdN.; ■ 

output an -XON- 

48 

49 

cr 

1E04' 

‘C2‘ 

23 

PRNT2: 

CLR 

■pRNtF .;■ 

Flag done printing 

50 

51 

1 Eo6 
1E09 

12' 

50 

.0’2E'8 ‘ 

03 


LCALL 

JNC 

LkB .;■ 

PRNT3 ; 

Look at keyboard 

IF no keyboard data THEN 

52 

53 

lEOB 

02 

066B 


LUMP 

RING ? 

signal done to user 

54 

1EOE 

•'22 


PRNT3: 

RET 

7 

ELSE return 


ccccccccccc 
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3 :> 3 5 


3 
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1 


CMPORT ~ complement port 


3 ; #CMPORT# tossles direction of the I/p port. 

’4 .;. 


6 

7 





? 

7 

ENTRY 

none 


.8' 

9 






EXIT 

none 


10 

11 





m 

> 

USES 

A, DPTR 


12 

13 

lEOF 

30 

13 

FD 

CMPORT: 

JNB 

OKTRANS, CMPORT ? 

Wait until transmitter empty 

14 

15 

iEi2 

1E14 

B2 

B2 

02 

3C 



CPL 

CPL 

PORTF ; 

PRTF2 ; 

Toggle port flag 

Toggle EAROM flag 

.16 

17 

iFi6 

■ ■ 02 ■■ ■ ■ 

16 



CLR 

XOFFRCVED ? 

Clear any received -XOFF- 

.18 

19 





’ 

SUMP 

WLATCH ; 

Write and return 

20 

21 

?? 





. . 

WLATCH 

“ write latch 


24 

25 





? 

7 

“WLATCH 

“ writes the current value 

of the byte ^XLATCH* out 

26 

27 





7 

7 

to the 

memorv mapped 1 atch. 


28 

29 





7 

7 

ENTRY 

none 


30 

31 





7 

7 

EXIT 

none 


32 

33 





■ 

• 

7 

USES 

A, DPTR 


34 

36 

37 

1E18 

lElA 

E5 

90 

20 

3000 


WLATCH: 

MOV 

MOV 

A, XLATCH ? 

DPTR, #MLATCH ? 

Get byte 

Get address 

39 

lElD 

lElE 

FO 




MOVX 

RET 

©DPTR, A ? 

Output data to latch 
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1 





? ? 

DCLK - 

Display clock 

2 

3 





. 

DCLKO - 

a 1 wavs disp1 ay clock 

4 

5 





. 

»DCLK> 

displays the current settins of the clock on the 25th 

6 






line once every second only. 

7 





; 



!-! 





; 

*DCLKO* 

always displays the current setting of the clock on 

9 





; 

the 25th line. 

10 





; 



11 





; 



12 





; 



13 





? 

ENTRY 

none 

14 





; 



15 





; 

EXIT 

none 

16 





; 



17 





; 

USES 

A, B, DPTR 

18 








19 








20 

lElF 

E5 

3E 


DCLK: 

MOV 

A, DISPSEC . 

21 

1E21 

B5 

3B 

01 


CJNE 

A, TSECi DCLKO ? IF no change in seconds THEN 

23 

1E24 

22 




RET 

■ exit 

24 

1E25 

85 

3B 

3E 

DCLKO: 

MOV 

DISPSEC, tSEC ; init #DISPS'EC* ’ . 

25 

1E2S 

E5 

3D 



MOV 

A, THOUR 

26 

1E2A 

12 

0A92 



CALL 

CBA ; Convert hours to ASCII 

27 

1E2D 

CO 

82 



PUSH 

DPL ; Save ones digit 

28 

1E2F 

E5 

83 



MOV 

A, DPH ? Get tens digit 

29 

1E31 

B4 

30 

02 


CJNE 

A, DCLKl ; IF tens digit = 'Q- THEN 

30 

1E34 

74 

20 



MOV 

A, ; suppress leading digit 

31 

1E36 

90 

57CS 


DCLKl: 

MOV 

DPTR, #L25MEM+72 

32 

IFS^' 





’MO'VX 

©DPTR, A " Place on screen 

33 

1E3A 

DO 

EO 



POP 

ACC 

34 

■ i‘E3C 

■A3 ■' 




IIMt: 

tiPTR. 

35 

1E3D 

FO 




MOVX 

©DPTR, A ? Place on screen 

36 

■1F3E 

■ ■ 74 ■ ■ ■ 

3A 



MOV 

A, ■#•':•"■ ■ . 

37 

1E40 

A3 




INC 

DPTR 

38 

iE41 

• • po • • • 




MOVX 

©DPTR, A 'Place on screen 

39 

1E42 

E5 

3C 



MOV 

A, TMIN 

46 

1E44 

12 

0A92 



CALL 

CBA ; Convert minutes to ASCII 

41 

1E47 

CO 

82 



PUSH 

DPL ; Save ones digit 

42 

i'E43 ■ 

■"E5 . 

. 83 ■ ■ ■ ■■■ 



MOV 

A, DPH ■■ ■■ . 

43 

1E4B 

90 

57CB 



MOV 

DPTR, #L25MEM+75 

44 

rE4E’ ■ 

'P'6 . 




'MO'VX 

©DPtR, A " Place tens digit on screen 

45 

1E4F 

DO 

EO 



POP 

ACC 

46 

iFSl 

■A3 . 




INC 

fciPTR ■ . 

47 

1E52 

FO 




MOVX 

©DPTR, A ; Place ones digit on screen 

48 

iFS3‘ 

■■■74 . 

3‘A 



MOV 

A, . 

49 

1E55 

A3 




INC 

DPTR 

SO 

’l’ES6 

■■'FO. 




MOVX 

©DPTR, A ; Place i oh screen 

51 

1E57 

E5 

3B 



MOV 

A, TSEC 

. S'2 ■ 

1^59’ 

12 

‘■■■6A92 ■■■ 



CALL 

CBA ; Convert seconds to ASCII 

53 

1E5C 

CO 

82 



PUSH 

DPL ; Save ones digit 

54 

iE5E'’ 

■■■£5 . 

83 



MOV 

Ai, DPH 

55 

1E60 

90 

57CE 



MOV 

DPTR, #L25MEM+78 

56 

1E63 

FO 




MOVX 

©DPTR, A ; Place tens digit on screen 

57 

1E64 

DO 

EO 



POP 

ACC 


c c c c c 


c 


c c c 
















































3 3 5 3 3 


3 3 3 3 3 
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1 

1E66 

A3 

INC 

DPTR 


2 

3 

1E67 

1E68 

FO 

22 

MOVX 

RET 

eOPTR, A 

; Place ones disit on screen 
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1 





“ ? 

DISPSTAT - display status line 


2 

i-i 





f 

? 

*DISPSTAT* displays evervthins 

that can be displayed onto 

4 





7 

the 25th line if the option is 

enabled. This includes 

5 





? 

clocki 

caps locked7 on/off line 

indicators, and insert . . 

6 

7 





■ 

7 

character mode. 


8 

9 





■ 

7 

m 

7 

ENTRY 

none 


10 





m 

7 




11 





7 

EXIT 

none 


12 





7 




13 





• 

7 

USES 

al 1 


14 









15 









16 

1E69 

30 

37 

03 

DISPSTAT: 

JNB 

L250N, DSPR 

; IF line 25 off OR 

17 

1E6C 

30 

15 

01 


JNB 

L25EN7 DSPO 

; IF line 25 enabled THEN 

18 

1E6F 

22 



DSPR: 

RET 


? return 

19 









20 

1E70 

74 

08 


DSPO: 

MOV 

A, #00001000B 


21 

1E72 

71 

2E 



ACALL 

SCLRL 

; Clear with half intensity 

22 









23 

1E74 

D1 

25 



ACALL 

DCLKO 

; Display clock 

24 









25 

1E76 

E4 




CLR 

A 


26 

i'E77 ■■■ 

90 

1E94 



MOV 

DPTR, #MSGCL 

; Caps locked 

27 

1E7A 

30 

35 

02 


JNB 

CAPLOCKF, DSPl 


28 

1E7D 

71 

A8 



ACALL 

XSTAT 


29 









30 

1E7F 

74 

10 


DSPl: 

MOV 

A, #16 


31 

1E81 

90 

1EA5 



MOV 

DPTR, #MSGOL 

; Off1ine 

.'35: 

i'e34 ■ 

• -5:0 ‘ 

2 ^ 



JB 

ONLINE, DSP2 


33 

1E87 

71 

A8 



ACALL 

XSTAT 


.34- 









35 

1E89 

74 

ID 


DSP2: 

MOV 

A, #29 


.36' 

'lESB ' 

• • -90 ■ 

.I'EBS' ■ ’ 



MOV 

’tiP'TP', '#MSG'IC. 

; Insert character 

37 

1E8E 

30 

21 

02 


JNB 

ICMODEF, DSP3 


38 

i'F91 

' ■ '71. 

■ • ■ ■' 



.A'CA'LL 


; Output 

39 









'40 

iE93 

22 



'DS'PS: 

. RET 




c c c 


c c c 


c c c c c 












































7 


7 7 7 7 7 


7 7 7 7 


7 


.Z29f^iM; ■ Ml'CmifeeiNlCH ■ sosi' CROSS' 'ASSEMBLER' '(VI )-218 '' 24-FEB-83 ' l'5:'30; 06' P^E '235' 

Z“29 COMPUTER TERMINAL FIRMWARE VERSION 1.03 


1 




- 

Caps locked message 


2 

3 1E94 

00 

20 

20 

MSGCL: 

DB OOH, ••• CAPS LOCKED 

•••, (00H+80H) 

.ie$7'" 

43 

41 

50 




1E9A 

53 

20 

4C 




1E9D 

■ 4 'F 

43 

4B 




IE AO 

45 

44 

20 




iL’A3 

20 

80 





4 














6 




; 

Off line message 


. 7 . 




; 



8 1EA5 

00 

20 

20 

MSGOL: 

DB OOH, OFF LINE , 

(OOH+SOH > 

.1EA8‘" 

■ ‘^F. 

'46 

46 




lEAB 

20 

4C 

49 




iEAF 

.. .4^ .... 

.45' ■■■■ 

■ ■ ■ ■ 20 ■ ' 




lEBl 

20 

80 





9 







10 







li 




; 

Insert character message 


12 




; 



13 1EB3 

00 

20 

20 

MSGIC: 

DB OOH, INSERT 'MO'DF 

•••, (■ O 6 H+ 8 OH )■ . 

1EB6 

49 

4E 

53 




1EB9 

45 

52 

54 




lEBC 

20 

4D 

4F 




lEBF 

44 

45 

20 




1EC2 

20 

SO 
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1 





; ; 

KBCHK 

- keYboard check 

3 





T 

7 

•k-KBCHK* waits 

for the keyboard to send ~KB_POWER~ within 

4 





" 

75 ms. 

If it 

is not found then an error condition exists. 

5 





7 

This r 

outine must pnlv.be done after a hardware reset so that 

6 

7 





m 

7 

7 

it is 

known that the kevboard is so ins to send the data. 

S 

9 





7 

m 

7 

ENTRY 

none 


10 





7 




11 





7 

EXIT 

none 


12 





m 

7 




13 





7 

USES 

al 1 


14 









15 









16 

1EC:4 

7A 

OD 


KBCHK! 

MOV 

‘INDXI, 

#13 

17 

1EC:6 

7B 

00 


KBCO: 

MOV 

INDX2, 

#0 " REPEAT init count 

IS 

1 EC8 

12 

02B6 


KBCl: 

CALL 

FCKB 

; REPEAT set any data 

19 

lECB 

40 

04 



JC 

KBC2 

; IF data AND 

20 

lECD 

B4 

8 F 

FS 


CJNE 

A, #KB 

-.POWERS KBCl ; IF power up THEN 

21 

lEDO 

22 




RET 


; return 

22 

lEDl 

DB 

F5 


KBC2: 

DJNZ 

INDX2, 

KBCl ; UNTIL done 

23 

1ED3 

DA 

FI 



DJNZ 

INDXl, 

KBCO ; UNTIL an done 

24 









25 

1ED5 

43 

40 

08 


ORL 

ERRORS 

, #00001000B ; ELSE error #3 

26 

1ED8 

22 




RET 




c c c c c c c c c c c 







































3 3 3 3 3 
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1 





? ? 

ROMCHK 

- ROM checksum 



2 

3 





? 

-ROMCHK 

- does a checksum on 

the ROM and compares it with 

4 

5 





? 

the known value in ROM. 



6 

7 





7 

ENTRY 

none 



8 

9 





7 

EXIT 

none 



10 





7 





11 





m 

USES 

al 1 



12 










13 










14 

1ED9 

7C 

00 


ROMCHK: 

MOV 

WORK, #0 

II 

7 

init checksum 

15 

lEDB 

90 

0000 



MOV 

DPTR, #0 

7 

In it pointer 

16 

lEDE 

7A 

20 



MOV 

INDXl, #20H 

7 

First index 

17 

lEEO 

7B 

00 



MOV 

INDX2, #00H 

7 

Init count 

18 










19 

1EE2 

E4 



RMCl: 

CLR 

A 

; 

REPEAT 

20 

1EE3 

93 




Move 

A, QA+DPTR 

• 

7 

set ROM bvte 

.?1 , 

, .IEE.4. .. 

...2C. 




ADD 

A, WORK 

7 

add to previous amount 


1EE5 

FC 




MOV 

WORK, A 

7 

replace 

.23. 

.IEE6.... 

A3 




INC 

DPTR 

• 

7 

bump pointer 

24 

1EE7 

DB 

F9 



DJNZ 

INDX2, RMCl 

; 

UNTIL done 

.25. 

1EE9 

DA 

F7 



DJNZ 

INDXl, RMCl 

• 

7 

UNTIL all done 

26 










.27. 


60 

03 



JZ 

RMC2 

7 

IF error THEN 

28 

lEED 

43 

40 

01 


ORL 

ERRORS, #0000000IB 

; 

error #0 

.2?. 

.IF.FQ... 

..22.... 



RMC2: 

RET 











































15:30:06 PAGE 238 


Z29F^nM- MICROBENCH 8051 CROSS ASSEMBLER (VI)-218 24-FEB~83 

.29 . COMPUTER. .TEF>*MINAL .FIRMWAR.E . yER:?.ION . .1,0.;.;!. . 


1 





; - 

RAMCHK 

- RAM check 


2 





, 

-RAMCHK 

- checks the RAM for anv 

failures. It writes two 

4 






different values into character 

and attribute RAM and reads 

5 





; 

them back. Anv errors are flassied- . 

6 

7 





, 




i3 





■ 

ENTRY 

none 


10 

11 





7 

EXIT 

none 


12 

13 





7 

USES 

a"* 1 


14 









15 

lEFl 

90 

5000 


RAMCHK: 

MOV 

DPTR, #CHARMEM 

? Point to character RAM 

16 

1EF4 

7C 

55 



MQV 

WORK, #0101010IB 

; First pattern 

17 









IS 

1EF6 

7A 

08 


RAMO: 

MOV 

INDXl, #08H 

; First index 

19 

lEFS 

7B 

00 



MOV 

INDX2, #00H 

; Second index 

20 

21 

lEFA 

EC 



RAMI: 

MOV 

A, WORK 

? REPEAT 

22 

lEFB 

FO 




MOVX 

@DPTR, A 

•’ write pattern 

23 

lEFC 

53 

83 

EF 


ANL 

DPH, #ATRANL 

; move to attribute RAM 

24 

lEFF 

FO 




MOVX 

©DPTR, A 

* write pattern 

25 

IFOO 

EO 




MOVX 

A, ©DPTR 

; read pattern 

26 

IFOl 

54 

OF 



ANL 

A, #OFH 

; mask 

27 

1F03 

FD 




MOV 

TEMP, A 

" save 

28 

IF 04 

EC 




MOV 

A, WORK 

* get original pattern 

29 

IF 05 

54 

OF 



ANL 

A, #OFH 

; mask it also 

30 

1F07 

B5 

05 

14 


CJNE 

A, TEMPA, RAMERR 

; IF error tHEN exit 

31 

IFOA 

43 

83 

10 


ORL 

DPH, ttCHRORL 

? move to character RAM again 

!*** 

IFOD 

EO 




MOVX 

A, ©DPTR 

• read pattern 

;tj O 

IFOE 

B5 

04 

OD 


CJNE 

A, WORKA, RAMERR 

; IF error THEN exit 

34 

IFll 

A3 




INC 

DPTR 

‘ bump pointer 

35 

1F12 

DB 

E6 



DJNZ 

INDX2, RAMI 

; UNTIL done 

36 

1F14 

DA 

E4 



DJNZ 

INDXl, RAMI 

; UNtiL all done 

37 









38 

1F16 

BC 

55 

04 


CJNE 

WORK, #010101018, RAM2 

; IF pattern is original THEN 

39 

1F19 

7C 

AA 



MOV 

WORK, #101010108 

; change to second pattern 

40 

IFIB 

80 

D9 



SJMP 

RAMO 

‘ and do it again 

41 









42 

43 

IFID 

22 



RAM2: 

RET 


; IF no error THEN return 

44 

IFIE 

43 

40 

02 

RAMERR: 

ORL 

ERRORS, #0000001 OB 

; ELSE flag error #1 and return 

45 

1F21 

22 




RET 




€ 


c c c c 


c c c c 
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1 




? ? 

NVRCHK 

- non-volatile RAM checksum 

2 

3 




7 

•«-NVRCHK«- does a checksum on the NVRAM and returns the value. 

4 

5 




7 

7 



6 




7 

ENTRY 

none 

7 




7 



8 

9 




7 

• 

7 

EXIT 

(A) = checksum value of NVRAM 

10 

11 




■ 

7 

USES 

A, WORK, INbxi, PTRl 

12 

13 

1F22 

E4 


NVRCHKs 

CLR 

A 5 I nit for checksum 

14 

1F23 

78 

25 


MOV 

PTRl, #25H 

15 

1F25 

7A 

OF 


MOV 

INDXl, #15 

16 

17 

1F27 

26 


NVRl: 

ADD 

A, ©PTRl ; REPEAT add next value 

IS 

1F28 

08 



INC 

ptRl ; bump RAM pointer 

19 

1F29 

DA 

FC 


DJNZ 

INDXl, NVRl ; UNTIL done 

20 

1F2B 

22 



RET 
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1 






ERROR - 

diagnostic error 

¥ 






-ERROR-- 

outputs the error message*^ for anv errors; that 

4 






mav have been flagged in the -ERRORS- bvte. The status 
.1 i n.e . .i s. .d.i.s P1 ave d. i f . t he- re are no e r r o r s, A bell is 

6 

7 






given when finished and no errors occured. 

9 






Format 

of the error bvte is as follows: 

10 
11 






BIT 

0 ” ROM checksum error 

1 = RAM error 

12 

13 







2 = CRTC error 

3 = Keyboard error 

14 

15 





■ 


4 = Non-volatile RAM checksum error 

16 

17 





1 

ENTRY 

none 

IS 

19 






EXIT 

none 

20 

21 





• 

USES 

al 1 


L'4 

25 

1 h 2 L: 

1F2E 

E5 

70 

40 

05 


ERROR: 

MOV 

JNZ 

A, ERRORS 

ERRO ; IF no errors THEN 

26 

27 

1F30 
1F32 

D 1 

02 

69 

066B 



ACALL 

LUMP 

biSPStAt ; display s t a t u s 

RING ; ring bell and return 

29 

1F35 

E4 



ERRO: 

CLR 

A 

30 

31 

1F36 

IF 38 

71 

D 1 

2 E 



ACALL 

ACALL 

SCLRL ; Clear line full intensity 

DCLKO ; Display clock 

32 

T F3A’ ■ ■ 

■rii. 

■ . 

OF 



ACALL 

CMPORT ; Change ports 

34 

35 

IF30 ■ 


.40. 

FO 


MOV 

B» ERRORS ; Get errors 

36 

37 

iF3F 

1F41 

71 

45 

CF 

52 

52 

ERMl: 

acalL 

DB 

XMTS ; Output message 

- ERROR --3 ( ••■ •••+80H) 


1F44 

1F47 

4F 

2D 

AO 

20 




38 

1F49 

E4 




CLR 

A 

40 

41 

1 F4A 
1F4D 

90 

71 

1F41 

A 8 



MOV 

ACALL 

tipTR, #ERM1 

XSTAT ; Output to 25th line 

42 

43 

1F4F 

30 

FO 

17 


JNB 

B.O 7 ERRl ; IF ROM checksum error THEN 

44 

45 

1F52 

1F53 

FF 

71 

CF 



MOV 

ACALL 

W0Rk2, A . 

XMTS ? output message 

46 

1F55 

1F5S 

52 

20 

4F 

63 

4D 

68 

ERM2: 

DB 

RUM c h e c k s um ' 7 ( - +80H) 


IFSB 

1F5E 

6$ 

73 

63 

75 

6B 

6D 




47 

lF6i 

1F63 

20 

EF 

AO 



MOV 

A, W0RK2 

.48 ■ 

49 

TF'64‘ 

1F67 

90 

71 

1F55 

AS 



MOV 

ACALL 

DPTR, #ERM2 

XSTAT ; output to 25th 1ine 

50 

51 

1F69 

30 

FI 

14 

ERRl: 

JNB 

B.I 7 ERR2 ; IF RAM error THEN 


c c c c c c c c c c c 










































7 
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1 

1F6C: 

FF 




MOV 

W0RK2, A 


. 

•iF6rr' 

■"7T. 

.CF. 



.AC'ALL 

XMT3 ; 

output message 

3 

1F6F 

52 

41 

4D 

ERM3: 

DB 

•■RAM fault •', (••• •••+SOH) 



•1F72 " 


66 

" 6.1 " 






1F75 

75 

6C 

74 






1F78 ■■■ 

■■'20. 

■ ■ ■ ■ AO. 






4 

1F7A 

EF 




MOV 

A, W0RK2 


.S' 

■IF7B • 

••9(3 ■ 

.iF6F' 



MOV 

■ ■ DPTR',’ ■ #ER'M3'. 


6 

1F7E 

71 

A8 



ACALL 

XSTAT ; 

output to 25th line 

/ 

8 

1F80 

30 

F2 

15 

ERR2: 

JNB 

B.2, ERR3 ; 

IF CRTC error THEN 

. 9 ‘ 

■IF83' ■' 

• • • pp- • • • • 




MOV 

■ ■W0RK2’,' 'A . 


10 

1F84 

71 

CF 



ACALL 

XMTS ; 

output message 

.11' 

•1F86' •' 

'43. 

■ ■ ■ ‘ B2. 

■54 . 

.ERM4':. 

DB 

•'CRTC error -S (•' •*•+■801^) 



1F89 

43 

20 

65 






IFSC 

■ • 72 ' ■ " 

■ ■ ■ ■ 72. 

""6P . 






1F8F 

72 

20 

AO 





..12 

'TF92' ■ ■ 

■EF" "• 




. MOV . 

■ AV 'W0RR2. 


13 

1F93 

90 

1F36 



MOV 

DPTR, #ERM4 


.i'4' 

•IF'96-' 

■"71. 

As 



acalL 

XSTAT ; 

output to 25th line 

15 









. V6 

•1F98' ■' 

■•■30. 

" ■ ■ F5. 

■ ■ ■ '13. 

■ 'ERRS:. 

.JNB'. 

B.3, ERR4 ? 

IP ke'vboard error THEN 

17 

1F9B 

FF 




MOV 

W0RK2, A 


.IS 

■ TF9C:- • ■ 

■■•71. 

■ CP 



ACALL 

XMtS ; 

ou'tpu-t message 

19 

1F9E 

4B 

65 

79 

ERM5: 

DB 

•' Ke ’vboar d •', (•’ •” +SOH) 



TF^l ' 

■"62" ■■ 

■ ■ ■ "6F ■ ■ ■ 

'61 






1FA4 

72 

64 

20 






1FA7 

AO 







20 

1FA8 

EF 




MOV 

A, W0RK2 


21 

1FA9 

90 

1F9E 



MOV 

DPTR, #ERM5 


22 

IFAC 

71 

A8 



ACALL 

XSTAT ? 

output to 25th 1ine 

23 









24 

IFAE 

30 

F4 

18 

ERR4: 

JNB 

B.4, ERRS ; 

IF NVRAM error THEN 

. 25' 

TFBi“ 

■"FF"" 




MOV 

WdR'k2, 'A 


26 

1FB2 

71 

CF 



ACALL 

XMTS ? 

output message 

27 

1FB4 

■■•4E ■■• 

56 

52 

ERM6: 

DB 

-NVRAM checksum-', ( ' ••■+80H) 


1FB7 

41 

4D 

20 






IFBA 

63 

68 

■ ■ '65 ■ ■ ■ ■ 






IFBD 

63 

6B 

73 






IFCO 

■■■7^'"‘ 

6D 

AO 





28 

1FC3 

EF 




MOV 

A, W0RK2 


29 

1FC4 

90 

1FB4 



MOV 

DPTR, #ERM6 


30 

1FC:7 

71 

AS 



ACALL 

XSTAT ; 

output to 25th line 

31 

32 

1FC:9 

71 

CF 


ERRS: 

ACALL 

XMTS ; 

Output CR, LF-s 

33 

IFCB 

OD 

OA 

OD 


DB 

CR, LF, CR, (LF•^-80H) 



IFCE 

£!A 







34 









35 

IFCF 

Cl 

OF 



AJMP 

CMPORT ; 

Change ports back 
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1 . ;; RAMCONST - RAM. constants 


2 



; 







? *RAMC:ONST« is the table with all 

of the RAM 

constants that 

4 

CSJ 



; the 

terminal will power up with. 



6 

IFDl 

DO 

RAMCONST: DB 

LOW (IBUF) ! 

; ISTORE 


7 

1FD2 

DO 

DB 

LOW (IBUF) ! 

i IFETCH 


8 

9 

1FD3 

00 

DB 

0 i 

; ICOUNT 


10 

1FD4 

FO 

DB 

LOW (OBLIF) 1 

; OSTORE 


11 

1FD5 

FO 

DB 

LOW (OBUF) ! 

; OFETCH 


12 

13 

1FD6 

00 

DB 

0 

; xpos 


14 

1FD7 

00 

DB 

0 

; YPOS 


15 

IFDS 

50 

DB 

HIGH (CHARMEM) 

5 LINADH 


16 

1FD9 

00 

DB 

LOW (CHARMEM) 

; LINADL 


17 







IS 

IFDA 

00 

DB 

HIGH (NORM) 

; DSPADH 


19 

IFDB 

87 

DB 

LOW (NORM) 

; DSPADL 


20 







21 

IFDC 

00 

DB 

0 i 

; TSCROLL 


22 

23 

IFDD 

18 

DB 

MAXLINE 

; BFIX 


24 

IFDE 

00 

DB 

0 

; PMADRH 


25 

IFDF 

00 

DB 

0 

; PMADRL 


26 

IFEO 

00 

DB 

0 

; PMNUM 


27 

IFEl 

00 

DB 

0 

; PMVALUE 


28 







29 

1FE2 

00 

DB 

0 i 

; KBIDNUM 


30 

1FE3 

01 

DB 

1 

; HSLINE 


31 

1FE4 

00 

DB 

0 ! 

; GSET 


32 

33 

1FE5 

39 

DB 

OOlllOOlB 

; XLATCH 

bits #1 

. 34' 

'iFe6 ’■ 

■ 00’ . 

D’B 

OoOoOoOOB 

; ATTRIBUTES 

bits #2 

35 

1FE7 

08 

DB 

OOOOIOOOB 

; Bits #3 


‘ 36 

irE3‘ ■ ■ 

■ ■ ■ '0C . 

DB 

00001lOOB 

; Bits #4 


37 

1FE9 

30 

DB 

OOllOOOOB 

; Bits #5 


. 3S‘ 

39 

IFEA 

00 

DB 

0 i 

; xxpos 


40 

'IFEB ■■■ 

00 

DB 

0 : 

; XYPOS 


41 







42 

’iEEt: ■ 

20 

DB 

32 ! 

; BLNKRATE 


43 

IFED 

00 

DB 

0 ! 

; BLNKCOUNT 


’44 

’iFEE! ■ 

00 . 

DB 

6 ' ! 

J AUTOCNT 


45 







.46’ 

'IFEF” 

60 . 

DB 

0 ! 

; TCNT 


47 

IFFO 

00 

DB 

0 ! 

; TSEC 


’ 48’ 

’IFF’l ’ 

■ ”00. 

DB 

0 : 

; TMIN 


49 

1FF2 

00 

DB 

0 ! 

; THOUR 


.50 







51 

1FF3 

FF 

DB 

255 i 

; DISPSEC 


.52' 








1FF4 

00 

DB 

0 1 

! PFIELD 



c c c c c c c c c c c 














































3 


3 


3 


3 
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1 


. . 

CHKS ” check sum 

2 


• 

? 

-CHKS- is the checksum bvte for the terminal ROM. It is 

4 


• 

7 

chooser! so that the total sum of all the bvtes gives a value 

5 


• 

7 

of zero. 

6 

7 


IFFF 

ORG IFFFH 

.g • 

9 

IFFF 

D6 CHKS: 

DB 0D6H ; Checksum bvte 

.10* 

11 



END 
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AC 

‘/»OOD6 

01 

ACAl 

0A06 

0:3 

ACA2 

0A08 

03 

ACAS 

OAOA 

0 :-; 

Ar:A:3A 

0 A 12 

0:3 

ACAS 

OA16 

03 

ACC 

y.OOEO 

00 

ACCESS 

00 IE 

01 

ACD 

OCCl 

03 

ACDN 

OCBB 

03 

ACDl 

OCCO 

0:3 

ACHR2 

00.3D 

01 

ACL 

0C4C 

03 

ACLFT 

0C46 

03 

ACLO 

0C4B 

0:3 

ACPR 

OAAF 

03 

ACPI 

OACF 

03 

ACPI A 

0AD8 

03 

ACP2 

OADC 

03 

ACP:3 

OACC 

0:3 

ACR 

0C74 

03 

ACRT 

0C6E 

03 

ACRl 

0C73 

.03 .... 

ACU 

.6CA3 . 

..03... 

ACUP 

0C9D 

03 

ACUl 

0CA2 

03 

ADA 

0EC3 

03 

ADAM 

OECC 

03 

ADM3 

0042 

01 

ADMSES 

06A7 

03 

AESCl 

06 A1 

03 

ALLINI 

lOAF 

0:3 

ALL 11 

lOCl 

03 

ALTCHA 

OOOC 

01 

ALTGRP 

OOOF 

01 

ANSI 

0040 

01 

ANSIES 

0697 

03 

AN:5IT = 

0798 

<I).3 

ANSrrL= 

OOOC 

00 

APBT 

0CC6 

03 

APBTl 

OCCE-! 

0:3 

APCA 

09FA 

0:3 

APDC 

0E32 

03 

APDCO 

0E37 

03 

APDCl 

0E38 

03 

APDL 

0DB6 

0:3 

APDLO 

ODBB 

03 

APDLl 

ODBC 

03 

APIC 

0DE9 

0:3 

API CO 

ODEE 

03 

APICl 

ODEF 

0:3 

APIL 

0D7D 

03 

APILO 

0DS2 

03 

APILl 

0D83 

03 

APR 

0AE9 

03 

APRNT 

OADF 

03 

ARAMP 

0AF6 

03 

ARM 

0S5F 

03 

ARMT = 

0871 

03 

ARMTL = 

0005 

00 

ASBR 

OAEA 

03 

ASBRl 

OAEF 

03 

ASBR2 

0AF2 

03 

ASCP 

OEEF 

03 

ASGM 

OASB 

03 

ASGMT = 

0A50 

0.3 

ASGMTL= 

0007 

00 

ASGO 

0A4E 

0:3 

ASGO 

0A49 

03 

ASGl 

OASD 

03 

ASM 

083D 

0:3 

ASMR 

0S4F 

03 

ASMT = 

0850 

03 

ASMTL = 

0005 

00 

ASPF 

0A65 

03 

ASPFl 

0A6S 

0:3 

ASPFlA 

0A72 

03 

ASPFIB 

0A77 

03 

ASPFIC 

0A7C 

03 

ASPFID 

0A81 

03 

ASPFIE 

0A86 

0:3 

ASPFIF 

0A8C 

03 

ASPF2 

0A8E 

03 

ATBC 

062B 

03 

ATRANL= 

OOEF 


ATRIBM= 

4000 


ATTRIB= 

0021 


AT2 

0635 

03 

AUSCP 

OF 0:3 

03 

AUTOCN= 

00:39 


AUTOCR 

002C 

01 

AUTOLF 

002D 

01 

AUTOWR 

002B 

01 

AIM 

0880 

0:3 

AIRM 

08CC 

03 

AIRT = 

08i;iE 

03 

AIRTL = 

000:3 

00 

A ISM 

08 BO 

03 

AISR 

08C2 

03 

A 1ST = 

08C3 

03 

AISTL ■--- 

0003 

00 

A2M 

0898 

03 

A2RM 

0944 

03 

A2SM 

08FF 

03 

B 

7.00F0 

00 

BANKU " 

0(JOO 


BANKl = 

0008 


BAUDRA= 

00:3:3 


BELL = 

0007 


BFIX = 

0018 


BLINAD 

04EA 

03 

BLINKA 

OOOA 

01 

BLINKF 

0001 

01 

BLNKCN= 

0038 


BLNKRA= 

0037 


BRTAB = 

0E5F 

03 

BRl 

0FD2 

03 

BR2 

OFDC 

03 

BS 

0008 


BTAB 

0602 

03 

BTL 

060A 

0:3 

BTLl 

061A 

03 

BTR 

06 IF 

03 

CAN 

0018 


CAPLOC 

0035 

01 

CBA 

0A92 

0:3 

CCRSR = 

0080 


CDN 

0CA3 

03 

CDNl 

OCAE 

03 

CDN2 

0CB2 

03 

CDN3 

0CB7 

03 

CHARME= 

5000 


CHKS 

IFFF 

0:3 

CHRi:iRL= 

0010 


CINT = 

OOAO 


CLA 

0503 

03 

CLFO 

0BC2 

03 

CLFT - 

0C:3D 

03 

clk:f 

0033 

01 

CLKRUN 

0097 

01 

CLRFLG 

0020 

01 

CLRL 

OBAO 

03 

CLRLIN 

0B96 

03 

CLRS 

OBAC 

03 

CLRTAB 

0598 

03 

CLRTB 

059D 

03 

CMPCiRT 

lEOF 

0:3 

CONTLF 

00 ID 

01 

CPF 

0188 

03 

CPFRl 

018C 

03 

CPFR2 

01A7 

03 

CPFl 

018E 

03 

CPF2 

01 A3 

03 

CPR 

0E83 

03 

CPRM 

0EA9 

03 

CPRO 

OESB 

03 

CPROA 

0E8F 

03 

CPRl 

0E97 

03 

CPR2 

0EA6 

03 

CR 

OOOD 


i::RESET=:^ 

0000 


CRNBK 

0038 

01 

CRT 

0C64 

03 

CRTl 

0C6A 

03 

CRUL 

0032 

01 

CRi 

1198 

03 

cr5 . 

"li9A" 

0.3 

CSET = 

OOEO 


CSTOP == 

0040 


CSTRT = 

0020 


CSl 

0BB5 

03 

CS2 

0BB9 

0:3 

CTABl = 

0119 

03 

CTABlL= 

0008 

00 

CTAB2 = 

0107 

0:3 

.CrAfci;3L= 

‘ oO'oE' 

66 

CtABS = 

'6128 ' ■ 

03 

CTAB.3L= 

0006 

00 

CTS 

00B5 

01 

CUA 

0CD6 

03 

CUAl 

0CE4 

03 

CUA2 

0CE8 

03 

CUA2A 

OCEB 

03 

CUA3 

OCEF 

03 

CUBO 

0CF2 

03 

CUBl 

OCFE 

03 

cue 

0D04 

03 

CUCO 

0D14 

03 

CUCOA 

ODIC 

03 

CUCl 

O'bOE" 

03 

CIJCIA 

0D12 

03 

CUC2 

ODIE 

03 

CUP 

0C8D 

03 

CUPl 

0C94 

03 

CUPl A 

0C95 

03 

CUP IB 

0C99 

03 

CUR 

OCFl 

03 

CURSOR 

1184 

03 

CLIRl 

ODOO 

03 

CUR2 

0D20 

03 

CY 

X.00D7 

01 

DC 

0B5F 

03 

DCLK 

lElF 

03 

DCLKO 

1E25 

03 

DCLKl 

1E36 

03 

DCMbRE= 

2001 


DDATRE== 

2000 


DEOL 

OBOO 

03 

DISPSE= 

003E 


DISPST 

1E69 

03 

DKI 

0FB9 

0.3 

DMAANL= 

OOCF 


DMADRH= 

OOOA 


DMADRL= 

OOOB 


DMAMEM= 

6000 


dmaoRl^’ 

6020 


■ 'DMATYP 

00B4 

01 

DMLN : 

wool 


DMLNA = 

0009 


DMPTR ’ 

XOOOO 


DMPTRA= 

0008 


DM1 

1225 

03 

DM1A 

1243 

03 

DMIB 

1235 

03 

DM 1C 

1238 

03 

DM ID 

123D 

03 

"DMIE. 

1246 

03 

DM2 

1248 

03 

DM.3 

124A 

03 

DM4 

125B 

6:3 

DOXOFF 

13C4 

03 

DOXON 

1.3D5 

03 

DPH 7.0083 

00 

DPL 7.0082 

00 

DSADRH= 

0015 


ti:5AtiRL=' 

66 i 6 


DSPR ■ 

1E6F 

03 

DSPO 

1E70 

03 

DSPl 

1E7F 

03 

DSP2 

1E89 

03 

DSPS 

1E93 

03 

DSR 

0D24 

03 

DSRERR 

0D40 

03 

DSROK 

0D42 

03 

DSRO 

0D29 

03 

.DSPOA’ 

■6b2C 

03 

"bSRi. 

0D30 

03 

DSRIA 

0D35 

03 

DSR2 

0D39 

03 

DSR2A 

0D3E 

03 ■ ■ ■ 

DSTARE= 

2001 


DTR 

0094 

01 

DX 

0014 

01 

D25L 

OB 15 

03 

EA ■ 7.00AF 

01 

FACR 

'61662 ■ ■ 

03 

EALF 

0B68 

03 

EAM 

0B03 

03 

EAROM = 

7000 


EAROMR 

0003 

01 

EAROMS 

0000 

01 

EBD 

OBFl 

03 

EBL 

OBCB 

03 

EBLNK 

0F30 

03 

EBl 

0BF8 

03 


OBFA 

03 

EB3 

OCOl 

03 

EC 

0B5C 

03 

EED 

0C08 

03 

EEL 

OBDB 

03 

EER 

OCIS 

03 

EERM 

0B74 

03 

EEl 

ococ 

03 

EEIA 

OCIO 

03 

EGATM 

0B6E 

03 

EGM 

0F39 

03 

EGTT = 

OSAA 

03 

EGTTL = 

0002 

00 

EHALF 

0F2A 

03 

EHSM 

0B3C 

03 

El CM 

0B54 

03 

EID 

OAIA 

03 

EIDl 

0A20 

03 

EID2 

0A25 

03 

EIL 

0A2B 

03 



c 


c 


c c c 


c c c c c 
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3 3 3 
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EILl 

0A31 

03 

EIL2 

0A36 

. 03 

EIR 

0A2A 

03 

EKAM 

0B4E 

03 

EKC 

0B26 

03 

EKI 

0FB3 

03 

EKSM 

0B48 

03 

ELB 

07BC 

03 

ELBT = 

07D0 

03 

ELBTL = 

00 IE 

00 

ENBLCU 

OOIA 

01 

EOL 

OBEO 

03 

EOLl 

0BE3 

03 

EQMT = 

0892 

03 

EQMTL = 

0002 

00 

ERM 

OOIB 

01 

ERMl 

1F41 

03 

ERM2 

1F55 

03 

ERM3 

1F6F 

03 

ERM4 

1FS6 

03 

ERM5 

1F9E 

03 

ERM6 

1FB4 

03 

ERROR 

1F2C 

03 

ERRORS^ 

0040 


ERRO 

1F35 

03 

ERRl 

1F69 

03 

ERR2 

1F80 

03 

ERR3 

1F98 

03 

ERR4 

IFAE 

03 

ERR5 

1FC9 

03 

ERVM 

0F33 

03 

ES 

7.00AC 

01 

ESC 

OOIB 


ESCCOD 

067B 

03 

ESCRET 

0696 

03 

ETO 

y.00A9 

01 

ETl 

7.00AB 

01 

EUNDL 

0F2D 

03 

EXO 7.00A8 

01 

EXl 

7.00AA 

01 

EZM 

0B07 

03 

E25L 

OBOB 

03 

FCIF 

01F6 

03 

FCKB 

02B6 

03 

FCOF 

024C 

03 

FILL 

12 a 

03 

FIl 

OlFC 

03 ' 

FI2 

0202 

03 

FI3 

0217 

03 

FKDLY 

02E1 

03 

FKDLYl 

02E4 

03 

FKL 

02C7 

03 

FKR 

02DD 

03 

FKl 

02BE 

03 

FK2 

02D8 

03 

F=‘Li 

1219 

03 

FOR 

026B 

03 

FOl 

0253 

03 

FREQ 

0039 

01 

FULLDP 

002F 

01 

FO 

7.00D5 

01 

GATM 

0025 

01 

GDES 

0F4F 

03 

GDESR 

0F7A 

03 

GDESO 

0F52 

03 

GDESi 

6F55 

03 

GDES2 

0F5A 

03 

GDES2A 

0F62 

03 

GDES3 

0F65 

03 

GDES3A 

0F71 

03 

GETNUM 

1B45 

03 

GNP 

09D1 

03 

GNPF 

0019 

01 

GNPl 

09DC 

03 

GNP2 

09E8 

03 

.■ 


■' 0S‘' 

.GNLIMS' 

1B93 

03 

GNUMO 

1B46 

03 

GNUMl 

1B4A 

03 

GNUM2 

1B52 

03 

GNUM2A 

1B57 

03 

GNUM2B 

1B5A 

03 

GNUM2L 

1B5D 

03 

GNUM4 

1B69 

03 

GNUM4A 

1B6E 

03 

.GNijM4B 

1B71 

03 

GNUM4C 

1B76 

03 

GPICK 

0F86 

03 

GPICKT= 

OF 92 

03 

GRPH 

GOOD 

01 

GSEL 

0012 

01 

GSET = 

00 IF 


GODES 

0F3F 

03 

GOPICK 

0F7B 

03 

GIDES 

0F47 

03 

GIPICK 

OFSl 

03 

HALFIA 

OOOB 

01 

HAZ 

0043 

01 

HAZESC 

06B0 

03 

HAZINI 

11D4 

03 

HAZT = 

0768 

03 

HAZTL = 

0010 

00 

HCLFT 

0C51 

03 

HCLFT1 

0C5F 

03 

HCRT 

0C79 

03 

HCRTl 

0C88 

03 

HEED 

0C19 

03 

HEEl 

0C20 

03 

HEEl A 

0C24 

03 

HIR 

11D8 

03 

HNDSHK 

003E 

01 

HSLINE= 

00 IE 


HSMODE 

0036 

01 

HSSTOP 

0022 

01 

HT 

0009 


HTAB 

0636 

03 

HTC 

0627 

03 

HTS 

0621 

03 

HTSl 

0623 

03 

HTO 

0640 

03 

HTl 

0652 

03 

HT2 

065B 

03 

HT3 

0665 

03 

IBLIF = 

57D0 


ICMODE 

0021 

01 

I COLIN t= 

OOOE 


ICl 

114F 

03 

IDT 

OEAB 

03 

IDTM 

OEBO 

03 

IDTT 

0EB3 

03 

IDTTM 

OEBF 

03 

IE 

7.00A8 

00 

lEDMA = 

0082 


IEINIT= 

0095 


lEXTIO 

002A 

03 

I EG 

7.0089 

01 

lEl 

7.008B 

01 

IFCP 

0079 

03 

IFETCH= 

GOOD 


IFPA 

0082 

03 

IFPRET 

0106 

03 

IFPl 

009C 

03 

IFPIA 

00A4 

03 

IFPIB 

OOAC 

03 

IFPIC 

GOAF 

03 

IFP2 

00B4 

03 

IFP2A 

OOCF 

03 

IFP3 

00D5 

03 

IFP3A 

OODE 

03 

IFP4 

‘ OOEA 

03 

IFP5 

00F4 

03 

IFP5A 

00F6 

03 

IFP6 

0104 

03 

IHI 

0015 


IKBl 

11A4 

03 

IKB2 

11 AC 

■ ’ 03 ’ 

I KBS 

11B4 

03 

IKB4 

IIBC 

03 

IKB5 

11C4 

03 

IKB6 

lies 

03 

ILEN = 

0020 


ILO 

0009 


INDXl 

7.0002 


INDX1A= 

0002 


INDX2 ' 

7.0003 


INDX2A= 

0003 


INIT 

1045 

03 

INITCR 

lllE 

03 

INITKB 

119E 

03 

INMOV 

10A7 

03 

INTO 

7.00B2 

01 

INTI 

7.00B3 

01 

INS 

1068 

03 

IN3A 

108 A 

03 

IN3B 

1086 

03 

IN4 

109C 

03 

IN5 

10 A3 

03 

IP 

7.00B8 

00 

IPINIT= 

0003 


IRQ 

■ 1329' ■ 

03 

IRQl 

1347 

03 

IRQ2 

1352 

03 

IRQ3 

135E 

03 

IRQ4 

1361 

03 

IRQ4A 

1379 

03 

IRQ5 

1390 

' ■ 03 ■ 

ISCON = 

005A 


ISTORE= 

OOOC 


ITMOD = 

0023 


ITMRO 

002D 

03 

I TO 

7.0088 

...Ql.. 

ITl 

7.008A 

01 

11 

0008 

03 

12 

0010 

03 

13 

0019 

03 

15 

0029 

03 

KBACC 

0448 

03 

KBBREA 

OFCC 

03 

KBCHK 

1EC4 

03 

KBCP 

02EE 

03 

KBCPLK 

OFBF 

03 

KBCRT = 

0466 

03 

KBCRTL= 

0007 

00 

KBC-.BE= 

0081 


KBC_DC= 

0083 


KBC^DK= 

0088 


KBC^DR= 

0087 


kBC^EC= 

0082 


KBC^EK= 

0089 


KBC_EL- 

0084 


KBC::_ER= 

0086 


KBC_ID= 

0080 


KBC_OF= 

008A 


KBC_ON= 

008B 


KBC_XL= 

0085 


KBCO 

1EC6 

03 

KBCl 

1EC8 

03 

KBC2 

lEDl 

03 

KBDISF 

00 IF 

01 

KBDT = 

044B 

03 

KBDTL = 

0009 

00 

KBENT 

043E 

03 

KBEl 

0445 

03 

KBFNT = 

04CF 

03 

KBFNTL= 

0009 

00 

KBIDNLN 

00 ID 


KB IN 

0091 

01 

KBOUT 

0090 

01 

KBPDT = 

■6’47B '■ 

03 

KBPDTL= 

001C 

00 

KBSCRO 

0FE3 

03 

KBSCRl 

OFED 

03 

KBSCR2 

OFFO 

03 

KBSPAC 

0436 

03 

KBSl 

043C 

03 

KBTAB 

04 IB 

03 

KB_ACC= 

009F 


KB^BRE= 

0089 


KB_CAP= 

008A 


KB„CNT= 

0020 


KB_COM= 

009D 


ii 

o: 

<E 

Q 

'ic; 

009C 


KB-.DEC= 

009A 


KB_DOW= 

0081 


KB_ENT= 

009B 


kB_ERA== 

0085 


KB_F1 = 

0080 


KB_F2 = 

0081 


KB„F3 = 

0082 


KB„F4 = 

0083 


KB_F5 = 

0084 


KB^F6 = 

0085 


KB_F7 = 

0086 


KB_F8 = 

0087 


.KB^F?. .f. 

0088 


KB_HEL= 

0086 


KB_.HOM= 

0084 


KB_ID = 

0098 


KB_LEF= 

0082 


KB^POW= 

OOSF 


KB_RIG= 

0083 


KB^SCR= 

0087 


KB>.SET= 

0088 


KB^SHF= 

0040 


KB^SPA= 

008C 


H::B_tAB= 

008B 


KB_UP = 

0080 


KB_.0 = 

0090 


KB_1 = 

0091 


KB_2 == 

0092 


KB-.3 = 

0093 


KB 4 = 

0094 



0095 


KB_6 = 

0096 


. ~ 

. 0097,.. 


KB_8 = 

0098 


KB-.9 = 

0099 


KCl 

0FC8 

03 

KPA 

03CD 

03 

KPADAL 

0031 

01 

KPADSH 

0030 

01 

KPB 

03DB 


KPC 

0402 

03 

KPCOF 

0414 

03 

. KRCl . 

.04X9... 

03 
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KPR 

02F3 

03 

KPR2 

0413 

03 

KPO 

02F4 

03 

KPl 

0303 

03 

KPIO 

03CB 

03 

KPll 

0384 

03 

KP12 

03B4 

03 

KP13 

03A3 

03 

KP14 

03A1 

03 

KPl 5 

03B2 

03 

KP16 

0365 

03 

KP16A 

036B 

03 

KP2 

030F 

03 

KP3 

0335 

03 

KP4 

034B 

..03 ... . 

KPS 

0345 

03 

KP6 

034F 

03 

KP7 

0355 

03 

KPS 

OSSA 

03 

KP9 

0371 

03 

KSR 

OFFE 

03 

KTMl 

0431 

03 

.KTM2. 

. 0434.. 

03 

KTp 

042A 

03 

KTl 

042D 

03 

Li::if=^ 

02 IB 

03 

LF 

= OOOA 


LINADH= 

0013 


LINADL 

== 0014 


LIl 

0221 

03 

LKB 

02E8 

03 

LKBR 

02ED 

03 

LKUPl 

13F8 

03 

LNOFF 

1BC9 

03 

LNON 

IBCC 

03 

LNIBI 

14i::7 

03 

LN1B2 

14CF 

03 

LN3B 

1648 

03 

LN3B1 

164D 

03 

LN3B10 

166B 

03 

LN3B11 

1670 

03 

LN3B12 

1675 

03 

LN3B13 

167 A 

03 

LN3B14 

167F 

03 

LN3B3 

1652 

03 

LN3B5 

1657 

03 

LN3B7 

165C 

03 

LN3B8 

1661 

03 

LN3B9 

1666 

03 

LN3C1 

1684 

03 

LN3C2 

1689 

03 

LN3C3 

168E 

03 

LN3C4 

1693 

03 

LN3E1 

1698 

03 

LN3E2 

169C 

03 

LN3G1 

16 AO 

03 

LN3G2 

16A8 

03 

LN4B1 

1769 

03 

LN4B2 

176F 

03 

LN4D1 

1775 

03 

LN4D2 

177D 

03 

LN4D3 

1785 

03 

LN4D4 

178D 

03 

LN7D1 

l'?B7 

03 

LN7D2 

i9C0 

03 

LN7D3 

19C9 

03 

LN7D4 

19D2 

03 

LN7F1 

19DB 

03 

LN7F2 

19DC 

03 

LN8B1 

iAE4 

03 

LN8B2 

lAED 

03 

LOOKUP 

13E9 

03 

LORDER= 

0047 


LOT 

= 1432 

03 

LOTL = 

0013 

00 

Li 

146E 

03 

LIA 

149E 

03 

LIT 

146B 

03 

LITL 

= 0001 

00 

L2 

150D 

03 

L2A 

1516 

03 

L2B 

151A 

03 

L2C 

152B 

03 

L2D 

1538 

03 

L2T 

1501 

03 

L2TL 

= 0004 

00 

L25EN 

0015 

01 

L25MEM= 

5780 


L250N 

0037 

01 

L3 

1598 

03 

L3A 

1 SCO 

03 

L3AT 

= 161E 

03 

L3ATL = 

OOOE 

00 

L3B 

15E7 

03 

L3C 

1600 

03 

L3D 

161C 

03 

L3T 

= 158C 

03 

L3TL == 

0004 

00 

L4 

16FS 

03 

L4A 

1717 

03 

L4B 

173B 

03 

L4T 

= 16EC 

03 

L4TL = 

0004 

00 

L5 

1808 

03 

LST 

17FC 

03 

L5TL 

= 0004 

00 

L6 

1897 

03 

L6T 

188B 

03 

L6TL 

= 0004 

00 

L7 

193F 

03 

L7i::l 

198D 

03 

L7C2 

1996 

03 

L7D 

19AE 

03 

L7T 

= 1933 

03 

L7TL = 

0004 

00 

LS 

1ASC 

03 

L8A 

lABO 

03 

LST 

1A74 

03 

L8TL 

= 0004 

00 

L8TL2 = 

0004 

00 

L8T2 

= 1A80 

03 

MAIN 

0036 

03 

MAXCHA= 

004F 


MAXLIN 

= 0018 


MLATCH= 

3000 


MNi 

0042 

03 

MNIA 

004E 

03 

MNIB 

0051 

03 

MNIC 

005D 

03 

MNID 

0062 

03 

MN2 

0065 

03 

MN3 

006E 

03 

MODE = 

0028 


MONITO 

003A 

01 

MSGCL 

1E94 

03 

MSGIC 

1EB3 

03 

MSGOL 

1EA5 

03 

NKC 

0B2D 

03 

NORM 

0087 

03 

NRMO 

00'7 3 

03 

NRMl 

009A 

03 

NULL = 

= 0000 


NUMCHA= 

0050 


NUMLIN 

= 0019 


NVRCHK 

1F22 

03 

NVRSUM 

= 0034 


NVRl 

1F27 

03 

OBUF = 

57F0 


OFETCH= 

= 0010 


OKTRAN 

0013 

01 

GLEN 

= 57F7 


ONLINE 

002E 

01 

OSTORE= 

OOOF 


OV 

7.00D2 

01 

P 

7.00D0 

01 

PBS 

= 0i::3D 

03 

PBSl 

0C42 

03 

PC IF 

OICA 

03 

PCKB 

026D 

03 

PCLK 

0B7A 

03 

PCLIA 

0B7F 

03 

PCLIB 

0B88 

03 

PCLIC 

0B91 

03 

PCL2 

0B95 

03 

PCOF 

022A 

03 

PCA ■' ■ 

‘OS'St: ‘ ■ 

•■^)8. 

. PCF^LF • • 

■ ■ (:)S4F’ ■ 

03 

PDC 

0DF4 

03 

PDCl 

OEll 

03 

PDC2 

0E31 

03 

POL 

0D88 

03 

PDLA 

0D95 

03 

PDLO 

0D9B 

03 

PDLl 

0D9F 

03 

PDL2 

0DA9 

03 

PPfeLD= 

=' OO^F' ■ ■ 


. PIC . 

■'oriCT" 

03 

. pici . 

ODDS' 

“03 . 

PIL 

0D47 

03 

PILA 

0D52 

03 

PILRET 

0D72 

03 

PILRTl 

0D75 

03 

PILO 

0D5C 

03 

PILl 

0D60 

03 

PIL2 

0D6A 

03 

PlR 

OlFi 

03 

. Pfl . 

OIDD 

03 

.F't2. 

01E4 

03 

PI3 

OlFO 

03 

PKDLY 

“6‘2B5“ 

03 

PKL 

0291 

03 

PKR 

02B3 

03 

PKO 

027B 

03 

PKl 

027F 

03 

PKl A 

02SF 

03 

i*k:5 

0294 

03 

■pk3 ■ ■ 

02A'5' ■ 

03 

PK4 

02A9 

03 

PK5 

02B0 

03 

PLF 

0561 

03 

PLFCR 

0555 

03 

PLFLP 

0588 

03 

PLFRET 

0594 

03 

PLFl 

0567 

03 

PLF2 

056D 

03 

. f^LFS 

057 i' 

■ 03 . 

. PMADRH^ 

= ■ 001 ■ 


. p’mA‘dr'l= 

001A 


PMBUF = 

= 57FS 


PMNUM = 

= 00 IB 


PMVALU= 

= 001C 


PORTF 

0002 

01 

POl 

022F 

03 

P02 

0234 

03 

P03 

023F 

03 

. PK'iNt' ‘ 

■iDD2 ‘ 

03 

pPlf 

■ ■ o&m ■ ■ 

03 

. PRnTF ■“ 

0023 

Oi 

’ PRNTi 

1DE4 

03 

PRNT2 

1E04 

03 

PRNT3 

lEOE 

03 

PROTEC 

OOOE 

01 

PRTF2 

003C 

01 

PRTYEN 

0028 

01 

PRTYEV 

002A 

01 

.PRTYST 

0029 

01 

P*o 

'ZOOBC:' 

01 

. PSD . 

0971 

03 

PSDB 

0982 

03 

PSDBl 

0985 

03 

PSDB2 

09SA 

03 

PSDE 

09A2 

03 

PSDF 

0018 

01 

PSDRET 

09CF 

03 

PSDl 

09A0 

03 

’ PSD2* 

'09'B7 

■ ■ 08 . 

PS]d3 


■ 03. 

PSD4 

09CD 

03 

.PSOF 

0E6D 

03 

PSW 

7.00D0 

00 ■ ■ 

PTRl 

7.0000 


PTRIA = 

= 0000 


PTR2 7.0001 


PTR2A = 

== 0001 


PTO 

7.00B9 

01 

PTl 

■ %OOBB 

oi 

PUTCHP 

■“0157 ■■■ 

■ 03 . 

PUl 

017D 

03 

PU2 

0186 

03 

PXO 

7.00BS 

0‘1 

PXl 

7.00BA 

01 

PO 

7.0080 

00 

PI 7.0090 

00 

P2 

7.00A0 

00 

P3 

7.00B0 

00 

. RAMCHK ■ 

••iEFl“ 

03 

. pamcon ■ 

■'iF'Di' 

03 

. RAMERR 

IFIE 

03 

RAMP 

OAFA 

03 

RAMO 

1EF6 

03 

RAMI 

lEFA 

03 

RAM2 

IFID 

03 

RB8 7.009A 

01 

RD 

7.00B7 

01 

REN 

7.009C 

01 

• • ’ • 'i^iEPF ■ ■ ■ 

0084■' 

01. 

PGL. 

“b66F ■ 

03 

RGR 

067A 

03 

RI 

7.0098 

01 

RING 

066B 

03 

RLL 

0537 

03 

RLR 

0543 

03 

RLl 

0548 

03 

RLIA 

054C 

03 

RMCl 

1EE2 

03 

RMCS'"' 

'i£fo ■■ 

03 

RMS 

"b92C"' 

03 

RMSRET 

0943 

03 

.RMSf ' ■ ■= 

= 0956 

03 

RMSTL = 

: 0009 

00 

RMSl 

0938 

03 

ROMCHK 

1ED9 

03 

RSO 7.00D3 

01 

RSI 

7.00D4 

01 

RTS 

00‘7 5 

01 


c c c 


c c c 


c c c c c 
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RTl 

OBOA 

03 

RLIBOUT= 

007F 


RVVA 

0008 

01 

RXD 

7.00B0 

01 

R2_BAC= 

1024 


R2_DC:L= 

103F 


R2_DIS= 

1042 


R2-.ESC= 

102D 


R2_FIL= 

1OOC 


R2_ICU= 

lOlB 


R2_IKB= 

lOlE 


R2_IN = 

1000 


R2_IN2= 

1003 


R2_IRQ= 

lOOF 


R2^KY1= 

1027 


R2_kY2= 

102A 


R2_PRN= 

103C 


R2_SER== 

1012 


R2_bET= 

1021 


R2„STA= 

1006 


R2_ST0== 

1009 


R2_TC = 

1030 


R2-.TL = 

1033 


R2_TP = 

1036 


R2^T25= 

1039 


R2_XMT= 

1015 


R2_X0N== 

1018 


SAV2 

IBOD 

03 

sbl 

0B33 

03 

SBLR 

0F96 

03 

SBR 

0E4B 

03 

SBRET 

0E5E 

03 

SBRT 

OFAF 

03 

SBRO 

0E5A 

03 

SBUF 

70099 

00 

SBl 

0F9C 

03 

SB2 

0FA6 

03 

SB3 

0FA7 

03 

SCH 

0C36 

03 

SCLRL 

1B2E 

03 

SCLRLR 

1B2C 

03 

SCON 

7.0098 

00 

SCP 

0EE8 

03 

SCRNSA 

003B 

01 

SCRNl = 

004F 


Si::RN2A= 

0098 


SCRN2B= 

OODC 


SCRN3 = 

0099 


SCRN4A= 

004E 


SCRN4B= 

004F 


SCI 

1166 

03 

SC2 

1171 

03 

SDl 

llFO 

03 

SERIAL 

12C:B 

03 

SERIN 

12DD 

03 

SEROIJT 

1313 

03 

SETCF 

H7B 

03 

SETCRT 

1152 

03 

SETDIS 

082A 

03 

SETLCK 

0093 

01 

SETNOR 

082F 

03 

SETTAB 

05A2 

03 

SETUP 

1417 

03 

SETLIPR 

1AF6 

03 

SETUPS 

1B02 

03 

SETUPO 

141B 

03 

SETUP1 

141E 

03 

SETUP2 

14D7 

03 

SETUPS 

1542 

03 

SETUP4 

16B0 

03 

SETUPS 

1795 

03 

SETUP6 

1865 

03 

SETUP7 

18F4 

03 

SETUPS 

19DD 

03 

SFA 

126F 

03 

Sf"B 

12A5 

03 

SFCKB 

1407 

03 

SFCKBl 

140F 

03 

SFCKB2 

1416 

03 

SFILL 

1B21 

03 

SFILl 

1B23 

03 

SFIL2 

1B25 

03 

SFL 

12 AC 

03 

SFl 

1286 

03 

SF2 

12SD 

03 

SF3 

12AB 

03 

SF4 

12B9 

03 

SF5 

12BF 

03 

SF6 

12C7 

03 

SHIFTF 

001C 

01 

SIC 

12ED 

03 

SIl 

12F3 

03 

SIl A 

12FF 

03 

SI2 

1301 

03 

SIS 

1306 

03 

SLP 

1B40 

03 

SMS 

08E7 

03 

SMSRET 

OSFE 

03 

SMST = 

0911 

03 

SMSTL = 

0009 

00 

SMSl 

08F3 

03 

SMO 

7009F 

01 

SMI 

7.009E 

01 

SM2 

7-009D 

01 

SOFTIN 

10E4 

03 

SOFT 11 

lllB 

03 

SOR 

0E7F 

03 

SP 

70081 

00 

SPF 

01A9 

03 

SPO 

OlAE 

03 

3 

o 1 r;o 

03 

SP2 

01C4 

03 

SP3 

01C6 

03 

SRET 

lAFF 

03 

SRT 

1317 

03 

SRTl 

1326 

03 

STAB 

013A 

03 

STACK = 

005F 


START 

0030 

03 

STARTD 

11 DC 

03 

STBl 

05B0 

03 

STB2 

05B9 

03 

STCALL 

083A 

03 

STFILL 

1262 

03 

STUMP 

0836 

03 

STOPDM 

IIFD 

03 

STPIA 

1420 

03 

STPIB 

142C 

03 

STP2A 

14D9 

03 

STP2B 

14DB 

03 

STP2C: 

14E7 

03 

STP2C1 

14EC 

03 

STP2D 

14EE 

03 

STP2D1 

14F3 

03 

STP2E 

14F5 

03 

STP2F 

14F9 

03 

STP2F1 

14FB 

03 

STP3A 

1544 

03 

STP3B 

1550 

03 

STP3B1 

1562 

03 

STP3C 

1567 

03 

STP3C1 

1572 

03 

STP3C2 

157C 

03 

STP3C3 

1580 

03 

STP3D 

1584 

03 

STP3E 

1588 

03 

STP4A 

16B2 

03 

STP4B 

16BE 

03 

STP4C 

' 16C3 

03 

STP4C1 

16CF 

03 

STP4C2 

16D9 

03 

STP4D 

16DB 

03 

STP4D1 

16E3 

03 

STP4E 

16ES 

03 

STP5A 

1798 

03 

STP5B 

17A4 

03 

STP5B1 

17C1 

03 

STP5B2 

17C4 

03 

STP5B3 

17E5 

03 

STP5C 

17F0 

03 

STP5D 

17F4 

03 

STP5E 

17F8 

03 

STP6A 

1867 

03 

STP6B 

1875 

03 

STP6C 

1879 

03 

STP6D 

187D 

03 

STP6E 

1884 

03 

STP7A 

18F6 

03 

STP7B 

1904 

03 

STP7C 

1908 

03 

STP7D 

190C 

03 

STP7D1 

1916 

03 

STP7D2 

191C 

03 

STP7D3 

1923 

03 

STP7D4 

1927 

03 . 

STP7E 

192C 

03 

STP0A 

19DF 

03 

STP8B 

19ED 

03 

STP8B1 

1A08 

03 

STP8B3 

lAlD 

03 

3JP0I;;;; 

1A21 

03 

STP8D 

1A32 

03 

STPSE 

1 ASA 

03 

STP8E0 

1A41 

03 

STP8Ei 

1A61 

03 

STRET 

033C 

03 

STl 

013B 

03 

ST2 

014F 

03 

sue 

0B37 

03 

SUCl 

0B39 

03 

syn 

1 ri9ri 

03 

SXMTC 

1D8B 

03 

SXMTL 

X P.AS. 

C)3 

SXONl 

13E2 

03 

SXR 

13E1 

03 

TAB 

. AV.-.V. . 

05C1 

03 

TABTAB--= 

0029 


TBLl 

' 0506’ 

03 

TBL2 

05DE 

03 

TBR 

05FC 

03 

TEJl 

P.5F.3. 

03 

TjB2 

. .Q5EP. 

03 

TBS 

05EA 

03 

TB4 

05E7 

03 

TBS 

05F7 

P3... .. . 

TB6 

05 DC 

03 

' TBS. 

7.009B 

01 

TCNT = 

003A 


TCON 

70088 

00 

temp 

70005 


TEMPA = 

0005 


.JERMIN. 

. .I.ICB... 

03 

TFO 

7008D 

01 

TFl 

%Pp8F 

01 

THOIJR =- 

003D 


THO 

7,008C 

00 

’’thi 

7.008D 

00 

TI 

7.0099 

01 

TLO 

7008A 

00 

TLl 

7.008B 

00 

TM IN " 

003 Q 


JMOP 

7,0039 

pQ 

TRA 

1 SAC 

03 

TRANS 

139E 

03 

TRANSM 

139P 

0.3 

TROK 

’ 13B4’' 

03 

"TRoki ’ 

isBA ’ 

03 

TR0K2 

13BD 

03 

TRW 

13AE 

03 

TRO 

7.00SC 

01 

TRl 

^P08E.. 

01 

TSCROL= 

0017 


TSEC = 

^ 003B 


TXD 

700B1 

01 

TO 

7.00B4 

01 

T1 

7.00B5 

01 

UNDEF 

0767 

03 

UNDLNA 

0009 

01 

USCP 

0EF4 

03 

USCPl 

OEFF 

03 

usc;P2 

OF 01 

03 

UXOFFS 

0011 

01 

VSP 

0092 

01 

VSPF 

005:4 

pi 

weol 

OAFD 

03 

WLATCH 

••lEls' 

03 

WORK 

7.0004 


WORKA = 

0004 


WORKl 

7.0006 


W0RK1A-: 

0006 


W0RK2 

7.0007 


W0RK2A'= 

0007 


WR 

7.00B6 

01 

XACR 

0B65 

03 

XALF 

0B6B 

03 

XATR 

OF 26 

03 

XBLINA 

09F4 

03 

XERM 

0B77 

03 

XGATM 

0B71 

03 

XGM 

0F3C 

03 

XHSM 

0B43 

03 

XHSMl 

0B45 

03 

XI CM 

0B5S 

03 

XKAM 

0B51 

03 

XKSM 

0B4B 

03 

XLATC:H== 

0020 


XLONOF 

IBBF 

03 

XLONl 

1BC7 

03 

XLO 

1BF5 

03 

XLO A 

1C14 

03 

XLl 

ICID 

03 

.XLlA. 

. 1 c;24. 

03 

XL 10 

.. IQBpi . 

03 

.)(L.1P.A... 

..IC.BF... 

..P3. 

.xtxi. 

. XCCU .. 

03 

XL 12 

ICCB 

03 

)(L12A 

ICDO 

03 

XL 13 

1CD2 

03 

XL14 

ICDC 

03 

XL14A 

ICEl 

03 

XL IS 

1CE3 

03 

XLl 6 

ICFF 

03 

XL16A 

IDll 

03 

XL16B 

1D18 

03 

XL17 

IDIA 

03 































Z29R0M; MicROBENCH 8051 CROSS ASSEMBLER (VI>-218 24~FEB-83 15:30:06 PAGE 244+ 

.symbol. .TAeue,. 


XL 18 

1D3F 

03 

XL18B 

1D4B 

03 

XL18C 

1D52 

03 

XL18D 

1D59 

03 

XLISE 

1D60 

03 

XL2 

1C26 

03 

XL20 

1D63 

03 

XL3 

1C2S 

03 

XL3A 

1C44 

03 

XL3B 

1C4B 

03 

XL3C 

..1C57.. 

...03. 

XL4 

1C5D 

03 

XL4A 

1C74 

.. 03. 

XL4AA 

1C6B 

03 

XL4B 

1C7D 

03 

XL4C 

1C89 

03 

XL4SET 

1C79 

03 

XL7 

1C8D 

03 

XLS 

ICAO 

03 

XLS A 

ICAE 

03 

XL9 

. .1CRQ.. 

.. .03.. 

XML2 

1D7A 

03 

XMPl 


.. 03. 

XMP2 

IDBB 

..03 

XMP3 

IDCO 

03 

XMTC 

1BE4 

03 

XMTL 

1D74 

03 

XMTLl 

1D75 

03 

XMTP 

IDAC 

03 

XMTS 

IBCF 

03 

.XM.TS.l. .. 

. .1.9D.3.. 

...oa. 

. .xinTs;^... 

. .l.BDE... 

03 

XMIXOF 

13D1 

..03. 

XMIXON 

.^aE5... 

..03. 

.XM.T2.5 

.. .1.PC6. 

03 

XOFF = 

0013 


XOFFRC 

0016 

01 

XOFFSE 

0010 

01 

XON 

0011 


XPCK*B 

0B2A 

03 

..XPPS... .= 

.QQX.X.. 


XRVM 

0F36 

03 

XR2_DI 

0B23 

03 

XST 

1B9D 

03 

XSTAB 

09F7 

03 

XSTABX 

1404 

03 

XSTAT 

1BA3 

03 

XSTATX 

1401 

03 

XSTL 

IBAE 

03 

XSTR 

1BB8 

03 

. XSJX. 

.1.3FF.. 

...err'. .... 

XXPOS = 

0035 


XYPOS = 

0036 


YPOS = 

0012 


ZAR 

0F25 

03 

ZATR 

0F08 

03 

ZATRO 

OF 14 

03 

ZDS 

0041 

01 

ZDSESC 

06B3 

03 

ZDSSBR 

0E3D 

03 

ZDST 

, 06DF... 

03 

ZDSO 

0E49 

03 

ZEIA 

06C1 

. 03 

ZEIB 

06C6 

03 

ZEIC 

06CC 

03 

ZE2 

06DE 

03 

ZTAB 

0ED3 

03 

ZTABT = 

OEDF 

03 

ZTABTL= 

0003 

00 





$3-»$DSG 

0000 

00 

$$$BSG 

00B5 

...Pi... 

***XSG 

0000 

02 


. 2Q0Q... 

03 


module: Z29R0M 

ERRORS. .DETECJECS..Q 


.FR.EE. .CORE:..10574... WORDS 
B: Z29, B: Z29=A: 1 29/ E: ABS>E': LC/C 


1 


c 


c 


c 


c c c 


c c 


c 


c c 
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$ 19-16 

19-36 


20-7 

20-8 

20-19 

39-9 

39-38 

40-13 

40-36 

41-16 

42-45 

43-11 

43-40 

60-38 

63-11 

64-4 

65-10 

65-48 

67-11 

68-46 

71-32 

71-49 

72-30 

72-47 

73-32 

73-40 

74-32 

74-40 

75-32 

75-‘43 

76-30 

76-41 

78-31 

79-3 

81-30 

82—2 

91-11 

91-34 

117-36 

117-37 

134-22 

135-6 

140-29 

140-40 

149-43 

182-39 

183-41 

183-50 

183-55 

186-2 

186-16 

189-14 

189-28 

190-46 

191-43 

194-9 

194-23 

197-30 

197-44 

199-54 

200-11 

203-12 

203-26 

207-49 

208-9 

208-19 

208-34 

215-28 



AIM 67-17 73-14# 


aTRM.73-38.7^:-13# ’ ’ ■ 

AIRT 76-16 76-30# 76-41 


AIRTL 

AISM 

76-15 

73-35 

7’6-4i# 

75-13# 

75-20 




■A i’8R ■ ■ ■ 
AIST 

■74-18 ■ 
75-16 

• 75-14 ■ 
75-32# 

75-18 

75-43 

75-22# 

76-14 

7’6-lS . 


A1 STL 7^- IS .75-43#' 


A2M 

.67-14 

74-14# 



A2RH 

74-38 

81-’13# 

81-20 


A2SM 

74-35 

78-13# 

78-20 


ACAl 

£!7-19 

87-22# 



ACA2 

87-17 

87-23# 



AC:A3 

87-20 

P,y—2:2 

87-25# 


ACA3A 

87-28 

87-29# 



ACAS 

87-26 

87-29 

87-31# 


ACCESS 

9-44# 

33-22 

35-36* 

38-35* 

ACD 

122-50# 

122-51 




ACDl 122-46 122-49# 

’ACDN.67’-^23.122-45#. 

ACHR2 10-32# 160-8 207-9* 207-10 209-3 

ACL i’l 8- i 9# ■ 118-20. 


ACLO 

118-15 

118-18# 






ACLFT 

67-29 

118-14# 






ACPI 

94-23 

94-28 

94-33# 





ACPI A 

94-36 

94-37# 






ACP2 

94-37 

94-39# 






ACP3 

94-18 

94-20 

94-25 

94-31# 

94-38 

94-40 


ACPR 

68-14 

94-15# 






ACR 

119-42# 

119-43 






ACRl 

119-38 

119-41# 






ACRT 

67-26 

119-37# 






ACU 

121-47# 

121-48 






ACLIl 

121-43 

121-46# 






ACUP 

67-20 

121-42# 






ADA 

67-53 

139-15# 






ADAM 

139-17 

139-20# 






ADM3 

10-42# 

18-4 

33-51 

34-37 

34-52 

35-48 

57-35 174-34 195-7 

ADM3ES 

57-22 

57-33 

58-38# 





AESCl 

58-19# 

59-16 






ALL 11 

161-26# 

161-29 






ALLINI 

156-11 

161-13# 







ALTCHA 

9-19# 

18-35 

143-31* 

160-9* 

207-11* 

220-40* 221-16 

221—25 

221-40 

221-50 

223-8 



ALTGRP 

ANSI 

ANSIES 

9-22# 

10-40# 

222-20 

57-16 

18-23 

17-57 

223-13 

57-17 

33-57 

223-25 

57-19 

...34t6... 

223-41 

57-22 

34-43 

226-14 

57-25 

35-1 35-25 

58-14# 

36-4 

37-17 

...,?Zr29. 

195-3 

221-14 

221-33 222-12 

ANSI! 

ANSITL 

APBT 

.APBT.l.. 

58-17 

58-16 

67-50 

.123-14... 

65-10# 
...65.-:4a# . 
123-13# 
123-17# 

65-48 

123-20 















































Z29RCIM 
CROSS 1 

; MICROBENCH 8051 CROSS ASSEMBLER (VI)-218 
REFERENCE TABLE (CREF VO1-05 ) 

24-FEB-S3 15:30:06 PAGE S-2 


APCA 

APDC 

67-32 

67-47 

133-14# 

87-16# 


APDCO 

133-15 

133-18# 



APDCl 

133-19# 

133-20 



APDL 

67-44 

129-14# 



APDLO 

129-15 

129-18# 



APDLl 

129-19# 

129-20 



APIC 

68-44 

131-14# 



API CO 

131-15 

131-18# 



API Cl 

131-19# 

131-20 



APIL. 

67-41 

127-14# 



APILO 

127-15 

127-18# 



APILl 

127-19# 

127-20 



APR 

94-16 

95-16 

95-18# 95-39 96-18 


APRNT 

65-46 

•7'5'-i3# 



ARAMP 

65-37 

68-35 

96-17# 


ARM 

68-8 

72-13# 

72-20 


ARMT 

72-16 

72-30# 

72-47 


arHtl 

72-15 

72-47# 



ASBR 

68-32 

95-35# 



ASBRl 

95-36 

95-38# 



ASBR2 

95-38 

95-39# 



ASCP 

68-23 

141-32# 



ASGO 

90-19 

90-21# 



ASGl 

90-16# 

90-22 



ASGM 

68-11 

90-14# 



ASGMT 

90-17 

91-11# 

91-34 


ASGMTL 

90-16 

91-34# 



ASGO 

90-20 

90-25# 



ASM 

68-5 

71-13# 

71-20 


ASMR 

71-14 

71-18 

7i-22# 72-14 72-18 

73-i 8 

ASMT 

71-16 

71-32# 

71-49 


.A'SM'tL ■ 

■■"ri-is"- 

- - 71-49# ■ 



ASPF 

68-41 

92-18# 



. "ASPP’I' 

92-20#’ - 

■•^2-24" 



ASPF1A 

92—22 

92-24# 



.A3p-pi-B 

”92-24 ■■■ 

92-26#■ 



ASPFIC 

92-26 

92-28# 




ASPKiti ■ ■ 92~2S.*^2-30# 


ASPFIE 92-30 92-32# 
ASPPiP ■ ■ ■ ■ ■ ■ 92-34# 

ASPF2 92-21 92-36# 


A'T2'.54-52.54-54#- 

ATBC 54-50# 68-2 


•ATPANIL- • 
ATRIBM 


‘6-31 #■ ■ ■ ■ "22-32.23-24.130-29 ’''" 132-27.132-5C)' “" ‘ 170-32 ’' ’" Y72-23. i 73-6.213-25 ‘‘ 220-34.233-23 ' 


6-9# 


207-2 


.ATTRIB’ 

AUSCP 

■"■■"Ai’irotfN- 

AUTOCR 

■ ■ ■ 9-T3#' • 
68-24 

142-35# 

”143-49*' 

149-24* 

149-30* 

168-15* 

206-48 

206-51* 

207-1* 

■"zzd-id” 

220-25* ■ ’ "226-86*" ’ ■224’-8'S” ’ ’ 224-38* . 

11-T2#-- 

10-7# 

21-21"* 

47-34 

174-22* 

107-14* 

175-52* 

107-32* 

175-53 

202-24* 

203-48 






AUt’dLF 

iu-y# 

47-15 

108-14* 

108-32* 

202-30* 

204-4 






ALITOWR 

10-6# 

22-32 

97-15* 

97-35* 

197-14* 

198-15 






BANKO 

2-27# 

159-14 










BANKl 

2-28# 

170-39 










BAUDRA 

11-3# 

134-45* 

159-55 

188-24 

189-50 

190-4* 






BELL 

2-4# 

20-4 

56-21 









BFIX 

8—23# 

17-33 

46-18 

46-22 

46-28 

49-20 

49-32 

122-23 

125-36* 

126-20 

126-24* 126-25 126-36* 126-41* 


c 



c 


e c c c c 


C C) c< 
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3 D 3 
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128-17 
BLINAD 24-29 

128-23 

24-35 

128-32 

44-14# 

154-24 

46-43 

48-14 

49-48 

52-56 

53-30 

55-43 

86-8 

225-27 

228-24 

2:30-39 

BLINKA 9-17# 

BLINKF 9-6# 

143-25* 

150-28* 

144-49* 

175-38* 

222-41 











BLNKCN 11-10# 150-33^i- 175-31* ‘ 175-36 175-37* 


BLMKRA 11-9# 150-20* 175-32 

‘BRi.153-18# ■ ■ ■l53-‘22.i 53-23 

BR2 153-19 153-20 153-22# 


■ lEiRTAB--‘15/4-45: 6#. 

BS 2-5# 19-41 20-10 214-34 


.■ 

BTL 

“ “53-15#“ 
53-20# 

“66-i 9 
53-27 

123-18 



BTL1 

5:5-26 

53-27# 




BTR 

53-16 

53-30# 




.C:‘AN“ “ 

“““3~“li#“ 

“““l“7“~2l 




CAPLOC 

10-20# 

152-14* 

152-16 

162-21 

162-31* 167-18 234-27 

.CBA. 

9:5-15# 

94-33 

232-26 

232-40 

232-52 

CCRSR 

5-13# 

166-16 




CBN 

61-16 

63-20 

120-18 

122-15# 

i22-50 . 

CDNl 

122-16 

122-19# 




CDN2 

122-19 

122-22# 




CDN3 

122-23 

122-26# 





‘CHARME.6“il‘# ■ 44-24 45-25 206-31.207-32“ 238-15 242-15 242-16 

CHKS 243-9# 

■ CHRCiRL ■ ■ “ ' 6-334 "" 22-25 ‘ 130-35.132-44.170-29 ‘ ■l‘7d-34.i 7:3-18.220-37 ‘ 2:38-31. 

Cl NT 5-14# 163-:39 

■ CL A. 2 : 3-22 .‘45-15# ■ ■ 112-36.114-16 “ 116‘-5‘d.130-22.132-22 ‘ ‘ “220-30. 

CLFO 63-26 113-44# 

‘CLFT.6‘1”18.l‘l7-:37#‘ “ ‘ 118-19.1 i‘s-46. 

CLKF 10-18# 100-14* 100-34* 167-42 199-43* 201-8 


CLKRUN 11-44#“ 163-21* 163-32* 163-37* 

CLRFLG 9-50# 


CLRL 

CLRLIN 

112-16 

46-20 

112-35# 
49-25 

113-17 

99-18 

113-23 

99-39 

114-39 

112-14# 

115-50 
126-27 

116-20 

128-24 

161-41 

162-44 

213-21 


CLRS 

19-31 

61-19 

63-23 

75-38 

76-36 

88-23 

113-14# 

113-45 

161-39 

162-41 

207-20 

CLRTAB 

50-13# 

54-53 

140-35 









CLRTB 

50-17# 

50-19 










CMPORT 

193-24 

230-19 

230-43 

231-13 

231-13# 

240-32 

241-35 





CONTLF 

9-43# 

:3:3-20* 

:36-26 

37-45 

38-14 








CPF 23-14# 24-19 220-22 

r/pFl. 23-05 .2:3-19#. 

CPF2 23-28 23-31# 

CPFRl.2:3-16“#“ “ “ “ 2:3-29.23-32“ “ 

CPFR2 23-30 23-34# 

CPR.62-:3. 64-2.l“:37-l“4# 


CPRO 

137-16 

137-17# 











CPROA 

137-17 

137-19# 











CPRl 

137-14 

137-24# 











CPR2 

136-19 

136-26 

137-19 

137-22 

137-28 

137-31# 







CPRM 

137-24 

137-33# 











CR 

2-8# 

17-29 

17-37 

20-1 

41-52 

42-37 182-41 

208-25 

214-28 

228-27 

230-31 

241-33 

241-33 

CRl 

166-24 

166-26# 











CR2 

166-25 

166-27# 











CRESET 

5-3# 

164-22 











CRNBK 

10-27# 

164-40 

202-36 

202-42* 

202-50* 

204-10 







CRT 

19-22 

61-17 

119-14# 

119-42 

120-16 








CRT! 

119-15 

119-18# 
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CRUL 

.CSl. 

10-17# 

113-15 

101-13^^ 

113-19# 

101-31* 

164-42 202-37 

202-38* 202-41* 202-45 

202-46* 202-49* 204-12 

204-16 


113-22# 

113-25 






CSET 

5-15# 

..l-^>3~29... 






CSTOP 

5-12# 







CSTRT 

5“J 1# 

163-34 

165-17 





CTABl 

”l7-56 

19-36# 

20-7 





.CJ.AB.IU. 

..17.t5.5. .. 

...2D.t7.#... 






CTAB2 

18-3 

19-16# 

20-8 





.CT.AB.2U. 

,. .X 8.-72..... 

...2C>r:8#... 






CTAB3 

18-6 

19-53# 

20-19 





.C:.TA.B3L. 

.. 1 .... 

...20.-1.9#.. 






CTS 

11-48# 

16-30 

177-29 





CUA 

,. .58-:4.1... 

61-39 

63-56 

124-13# 





CUAl 124-18 124-19# 

.CUA.2 .... .1.24.T.19.U'4t2.1#. . 

CUA2A 124-21 124-22# 

CLA;3. X2^t22 .124t?;4#. 

CUBO 124-17 124-28# 

cmx .. izfXzmn . 

cue 124-15 124-16 124-38# 

CUCO.X2At39.. 

CUCOA 124-49 124-50# 

.cue.!..... .1.24 t4 1. X 24.Tf?#.. 

CUCIA 124-42 124-44# 

.C:U.C2 .... 1..5:4.-4S.1.24-51# 


CUP 19-19 61-15 63-17 118-42 121-15# 121-47 

r-| ID 1 1 1 _ 1 /. 1 1 _ 1 04* 


CURIA 
CUP IB 

121-17 
. 1 . 2 . 1 . 720 ... 

. .f .’-ITT. . 

121-20# 

121-23# 




CUR 

124-26# 

124-30 

124-32 

124-34 


CURl 

124-35# 

124-44 




CUR2 

124-24 

124-50 

124-52# 



CURSOR 

166-15# 

175-26 




D25L 

81-33 

99-37# 




DC 

78-46 

106-31# 




DCLK 

158-22 

232-20# 




DCLKO 

232-21 

232-24# 

234-23 

240-31 


DCLKl 

232-29 

232-31# 




DCMDRE 

6-4# 

163-28 

163-42 

164-16 

165-16 166-15 

DDATRE 

6-3# 

164-25 

166-19 



DEOL 

62-12 

76-39 

97-35# 



DISPSE 

11-19# 

232-20 

232-24* 



DISPST 

158-28 

162-46 

210-16 

234-16# 

240-26 

DKI 

i9-28 

62-18 

63-38 

71-38 

151-32# 

DM1 

170-20 

170-39# 




DMIA 

170-45 

170-55# 




DMIB 

170-46 

170-48# 




DM 1C 

176-48'■ 

170-49# 




DM ID 

170-50 

170-51# 




DhiE 

170-55 

"176-56#' 




DM2 

170-47 

170-57# 




bM3 

170-49 

170-56 

171-2# 



DM4 

170-51 

170-53 

171-14# 



DMAANL 

6-32# 

170-28 




DMADRH 

8-3# 

163-19* 

169-30 

171-12* 


DMADRL 

8-4# 

163-is* 

169-29 

171-9* 



c c c c c 


c c 


c c 


















































3 3 3 


3 3 


3 3 3 3 
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■fiMAMeH ■ ■ "6-24# ■ ■ '163-18.i'63-i'9 ‘ " l'7'l'-'l'i 

DMAORL 6-34# 172-29 


dMA'typ '' i 1-47# ■ ■ 'i ■ ■ i7o'-2'd.i'7d-'2i#"' 'i 72 - 50 *. 

DMLN 7-29# 170-43 170-46 170-48 170-50 17p755.1 7 O 757 1.71 -3 


.DML'NA 

DMPTR 

7-30# 

7-27# 

163-17# 

171-4 

169-24 

171-5 

175-24# 



.DMPTRA 

'7-28#■ 






DOXOFF 

174-42 

178-14# 

230-17 




.DOXON• • 

157-1. 

' i7S'-4 l'#'' 

' '230-'46" 




DSADRH 

8-19# 

17-26 

57-17# 

69-17# 

69-38# 

124-16# 

.DSAIiRL' 

• • •8-20#■ 

• • • •1-7-25 ''' 

'' '57- "l'6#'' 

■S7-3C)*' 

"' 57-33#"" 

57-36# 69-18# '69-3'7# 124-15# 

DSPO 

234-17 

234-20# 





.DSPl ■ ■■■ 

234-27 ■ ■ 

' '234-30#'' 





DSP2 

234-32 

234-35# 





. DSPS'* 

234-37''' 

' '234-40#' ■ 





DSPR 

234-16 

234-18# 





.DSR. 

••^■3-20 "' 

•■i'2S'-i5# " 





DSRO 

125-16 

125-19# 





dsP'oA 

125-19 

125-20# 





DSRl 

125-20 

125-23# 





.tJSR'l'A ■ 

'125-24 " 

"125-27# " 





DSR2 

125-27 

125-30# 





.'' 


"125-32# " 





DSRERR 

125-30 

125-34# 





.D'Sftdfe' 

'125-32'' ■ 

"125-35# " 





DSTARE 

6-5# 

163-42 

164-13 

164-16 

175-28 


DTR 

11-41# 

178-19# 

178-46# 




DX 

9-31# 

22-14# 

166-25 

166-29# 



E25L 

78-34 

99-15# 





EACR 

71-47 

79-1 

107-14# 




EALF 

78-55 

108-14# 





EAM 

61-10 

98-13# 





.E'AP'dM ' 

6-26# 

•159-35 " 

211-17 




EAROMR 

9-8# 

159-29# 

159-31# 




EAROMS 

9-5# 

211-30# 

211-32# 




EBl 

115-41 

115-44# 





EB2 

115-45# 

115-52 





EB3 

115-46 

115-49# 





EBD 

61-48 

88-19 

115-40# 




EBL 

62-4 

89-20 

114-14# 

115-42 

115-47 


EBLNK 

91-23 

144-49# 





EC 

81-45 

106-13# 





EEl 

116-16# 

il6-21 





EEIA 

116-17 

116-18# 





EED 

61-24 

63-32 

88-15 

116-14# 



EEL 

62-1 

89-24 

114-38# 




.e'er. 

116-18 

116-22# 

116-47 




EERM 

71-44 

110-14# 





egatm 

71-35 

109-14# 





EGM 

61-20 

91-29 

146-13# 




EGTT 

74-21 

74-32# 

74-40 




EGTTL 

74-20 

74-40# 





EHALF 

63-50 

91-17 

144-13# 




EHSM 

61-41 

78-40 

102-13# 

193-50 



El CM 

61-14 

71-41 

105-13# 




EID 

67-35 

88-13# 





EIDl 

88-14 

"'88-17#’ 
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EID2 

88-18 

88-21# 



EIL 

67-38 

89-14# 



EILl 

89-15 

89-18# 



EIL2 

89-19 

89-22# 



EIR 

88-22 

88-25# 

09_23 


EKAM 

...6.1-IX..., 

,..65-r28.., 

78-52 104-13# 


EKC 

81-36 

100-14# 



. eki . 

.19-25. 

62t16 

63-41 72-36 

151-13# 

EKSM 

62-9 

78-49 

103-13# 


ELB 

...65-1.3..., 

. 66-16# 



ELBT 

66-22 

67-11# 

68-46 


ELBTL 

...66-21.... 

68-46# 



ENBLCU 

9-40# 

106-13* 

106-31* 166-24 


EOL 

61-25 

63-29 

89-16 115-14# 

116-14 

EOLl 

115-16# 

116-42 



EQMT 

73-21 

..73t32# 

73-40 


EQMTL 

73-20 

73-40# 



ERM 

9-41# 

110-14* 

..1.10r34* 168-16* 

168-38* 172-23 

ERMl 

240-37# 

240-40 



ERM2 

240-46# 

240-48 



ERM3 

241-3# 

241-5 



ERM4 

241-11# 

241-13 



ERM5 

241-19# 

241-21 



ERM6 

241-27# 

241-29 



ERRO 

240-25 

240-29# 



ERRl 

240-43 

240-51# 



ERR2 

240-51 

241-8# 



ERRS 

241-8 

241-16# 



ERR4 

241-16 

241-24# 



ERR5 

241-24 

241-32# 



ERROR 

161-43 

207-40 

240-24# 



, .. .1160-17* 161-17* 163-53* 207-17* 207-38 236-25* 237-28* 238-44* 740-24 240-34 

ERVM 62-5 91-26 ‘ 145-13#.. 

ESC..... 19t38. 33755 34-40 34-55 36-2 37-25 37 

42-25 42-28 42-31.94- i 7 ’' 137-33.138-18 ’ ’ i 3JE!’-4’4 ' ' 139 

221-52 222-2 222-14 222-22 223-15 223-19 223-28 223 

ESCCOb i8-20 ■19-39.57-14#. 

ESCRET 57-29 57-32 57-35 57-37# 


EUNDL 

EZM 

91 - 20 
75-35 

144-31# 

76-33 

98-31# 



FCIF 

16-22 

26-15# 

56-22 



FCKB 

16-41 

.30-17 

31-15# 

153-18 

181-15 181-18 207-27 236-18 

FCOF 

16-32 

29-15# 




FIl 

26-16 

26-20# 




F12 

26-20 

26-23# 




FIS 

26-31 

26-34# 




FILL 

170-25 

170-27# 




FKl 

31-17 

31-21# 




FK2 

31-33 

31-.36# 




FKDLY 

31-28 

31-29 

31-37 

31-40 

31-46# 

FKDLY1 

31-47 

31-47# 




FKL 

31-27# 

31-38 




FKR 

31-34 

31-40# 





-26 42-7 42-10 42-13 42-16 42-19 42-22 

-20 . 2212 l 8 . 22 i -22 ' ‘ 221227 . 221232 . 221242 ’ ’ ’' 221246 . 

-32 223-46 224-10 


FL1 170-30# 170-35 

FOl.29216.:^2.20#. 

FOR 29-32# 

FREQ i 6228# 1 64236 .164238.i 76245 ' ‘ i'75-43 " ' ’ 26 ' 3 - l *. 264224 


c c c 


c c c 


c c 


c c 


c 































3 


2 

> 


5 


3 

3 


3 


3 

3 


3 
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■ ■FOLLDF' 
CODES 

id-10# 
65-16 

147-26# 

T88-55* 

190-25 












'GWtdK 

GIDES 

65-19 

■ 148-4. 

147-35# 

149-164 













GATM 

1 ^'-48 
9-55# 

148-10 

109-14# 

i49-80# 
109-34* 

168-17* 

220-21 











••'diDES- • 
GDESO 

T-47-3d- • • • 
147-45# 

147-89 ■ 
147-49 

T4y-44# 













• ■ • GDHSl • ■ 
GDES2 

r47U4-4 •' • 
147-48 

T47~48#■ ■ 
147-51# 














• • • GDES2A' 
GDES3 

■i‘47”54 ‘ ■ 
147-46 

r47-^s#■ ■ 

148-1# 














• • • GDESSA' 
GDESR 

148-1 • ' 
147-53 

r4i5-7#- • • • 
147-55 

148-12# 













• • • GETNUM- 
GNF* 

196-31 ••• 
54-50 

■ r96-44'■■■ 
71-13 

■2r4-l7# 

72-13 

75-13 

76-13 

78-13 

81-13 

85-15# 

87-16 

87-25 

88-13 

89-14 

90-14 

90-21 



■'92-2d■ ■' 
127-14 

■■94-15 

129-14 

•'95-85■ 
131-14 

■■■■96^-i7^^ 

133-14 

■■iri-i8^ 

139-15 

141-32 

iii-8i 

142-35 

118-14 

150-16 

i19-37 
226-15 

181-48 

182-4S 

i23-l3 

i2S-iS 

185-83 


GNPl 

GNP2 

85-15 

85-23 

85-20# 

85-26# 














■ ■ ■ GNPF' * ■ ■ 
GNUMO 

• • • • 

214-19# 

■ ■ 58-iS#■ ■ 
214-49 

■ ss-ie/ ■ 

■■■gs-i6*" 












gnuMi 

GNIJM2 

214-24# 

214-28 

214-41 

214-34# 

214-56 

215-2 

215-21 











GNUM2A 

GNUM2B 

214-34 

214-35 

■214-36# 

214-40# 














GNUM2L 

GNUM4 

214-42# 

214-36 

214-43 

214-53# 














GNIJM4A 

GNUM4B 

214-53 

214-55 

214-55# 

214-56# 














GNUM4C 

GNUMR 

215-1 

214-29# 

215-2# 

214-54 














GNUMS 

GPICK 

215-14 

149-18 

215-25# 

149-24# 

2i5-28 • 













GPICKT 

GRPH 

149-28 

9-20# 

149-43# 

18-21 

146-13* 

146-31* 

220-42* 

221 -1* 

221-9 









GSEL 

GSET 

9-29# 

8-32# 

148-4 

148-2* 

148-10 

148-3* 

149-16* 

148-7* 

149-20* 

148-9* 

149-17 

149-21 









HALFIA 
HAZ 

9-18# 

10-43# 

143-27* 

17-22 

144-13* 

18-18 

168-37* 

33-52 

222-53 

34-53 

35-49 

124-17 

124-39 

137-14 

160-11 

174-27 

174-35 

193-40 


HAZESC 

HAZINI 

57-25 

160-12 

57-36 

168-37# 

59-14# 

193-41 













HAZT 

HAZTL 

59-15 

59-14 

63- 11# 

64- 4# 

64-4 













HCLFT 

HCLFTl 

20-11 

118-44 

118-39# 

118-47# 














HCRT 

HCRTl 

20-14 

120-20 

120-15# 

120-23# 














HEEl 

HEEIA 

116-45# 

116-46 

116-54 

116-47# 














HEED 

HIR 

63-35 

168-18 

116-41# 

168-39# 














HNDSHK 
HSLINE 

10-33# 

8-31# 

16- 29 

17- 35* 

177-28 

102-14* 

178-17 

154-22* 

178-44 

154-27* 

189-4* 

190-33 









HSMODE 

HSSTOP 

HT 

10 -21# 

9-52# 

2 -6# 

17-30 

16-21 

19-44 

102-13* 

17-36* 

20-16 

102-32* 
102-34* 
37-22 

154-14 

154-21* 

193-47 

230-45 

195-14 
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HTO 

HTl 

55-17 

55-27 

55-20# 

55-29# 


HT2 

55-28 

55-34# 


HT3 

55-36 

55-41# 


HTAB 

20-17 

55-13# 


HTC 

54-32# 

54-51 

140-32 

NTS 

54-13# 

65-43 

14(3-38 . 

HTSl 

54-14# 

54-33 


11 

15-15 

15-17# 


12 

• • 

15-24 

1 

15-26# 

1 



15 

i BUF 6-14# 25-i 6 25-33.25-34.26-24.26-31.24^-32.27-21.242-6.2*42-7. 

ICl 163-52 163-55# 


.iCMCiDE ■ ■ 9-5 i# ‘' i'8-3S.35-3.35-12.i 05-i3#' ‘ ‘ 105-31* '' 234-37. 

ICOUNT S-8# 25-21 25-30# 26-15 26-34# 27-16 


IDT 

61-40 

138-15# 


IDTM 

138-15 

138-18# 


IDtt 

61-55 

138-37# 


IDTTM 

138-41 

138-44# 


I EDM A 

2-33# 

169-21 

172-49 . . 

lEINIT 

2-32# 

161-37 

170-18 


lEXtid“iS-l^..15-49# 

IFCP 16-24 17-21# 


■iFEYCH 

8-7# 

■ ' ■ 

26-29# 

26-30 

26-32# 27-22 . 

IFPl 

17-29 

17-30 

17-41# 



IFPIA 

17-43 

17-44# 




IFPIB 

17-41 

17-49# 




iFPlC 

17-49 

17-50# 




IFP2 

17-50 

17-55# 




IFP2A 

17-57 

18-1 

18-4 

18-7# 


IFP3 

17-51 

18-18# 




IFP3A 

iB-iS 


iS-i'i#' ■ 



IFP4 

18-22 

18-26# 




IFP5 

18-21 

i 8-23 

13-2^-. 

18-28 

18-85# 

IFP5A 

18-30 

18-36# 




IFF6 

17-4'4 

17-47 

18-38 

18-44# 


IFPA 

17-21 

17-22 

17-25# 



.iFPPEr 

18-12 

18-45# 




IHI 

6-16# 

25-27 




.lk:Bi. 

i’6r-i8'" 

167-26#■ 




IKB2 

167—26 

167-28# 




Ik'BS 

167-34 ■■ 

167-36# 




IKB4 

167-42 

167-44# 




1 KBS 

T67-Sd' 

167-52# ■■ 




IKB6 

167-20 

167-28 

167-36 

167-44 

167-52 167-55# 

* ILEN 

^•—17# 

■2S-22‘■■ 

25-33■ ■ ■ 

26-31 


ILO 

6-15# 

26-20 




IN3 

rS9-38# ' 

1S9-49 




IN3A 

160-1 

160-3# 




IN3B ■■ 

T59-S7‘ 

160-1# 




IN4 

160-11 

160-14# 





INS. i6tj-VS .16d-T7# 


INDXl 7-11# 

50-15 

50-19 

51-24 

51-32 

52-27 

52-51 

113-20 

113-22 

113-24 

115-44 

115-49 

115-51 

116-15 

il6-i’6 

116-17 

116-19 

116-44 

116-45 

116-46 

116-49 

118-18 

118-20 

119-41 

11*7-43 

121-46 

121-48 

122-49 

122-51 

127-18 

127-20 

129-18 

129-20 

130-18 

130-43 

132-19 

132-32 

132-56 

153-16 

153-22 

159-18 

159-23 

iS$'-3'6 

15*?-49 

160-30 

161-24 

161-29 

186-36 

187-9 

211-18 

■2li-2S'‘ 

212-16 

212-21 

213-26 

213-29 

236-16 


ccc ccc cc ccc 













































3 


5 


3 


3 


3 


7 
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INDXIA 

236-23 

7-12# 

237-16 

115-46 

237-25 

238-18 

238-36 

239-15 

239-19 





INDX2 

7-13# 

52-33 

52-44 

131-18 

131-20 

133-18 

133-20 

153-17 

153-23 

172-18 

*172-30 1*73-22 186-38 187-7 


212-17 

212-20 

236-17 

236-22 

237-17 

237-24 

238-19 

238-35 




INDX2A 

7-14# 











INIT 

159-14# 

161-20 

162-27 









INITCR 

l‘6l-35 

i‘6:S-i'4# 










INITKB 

157-13 

161-44 

167-14# 

182-29 

199-37 

199-44 






iNMOV 

i59*-2d 

1S9-25 

160-25# 

160-30 








IPINIT 

2-31# 

161-31 










■ ■ ■ ‘rR'd * 

156-41 

1^5-18* 










IRQl 

175-34 

175-36# 










rRQ2 

iy$-33 

*175-35 

175-36 

i*75-4l# 








IRQ3 

175-43 

175-46# 










.rR'a4‘ 

■175-45 ■ ■■ 

■ ■l’75-4‘7# ■ 










IRQ4A 

175-51 

175-54 

176-1# 









.rR’dS* ■ ■ ■ 

i75-4'4 

**1*75-46*** 

*17*5-56*** 

176-4 

176-8 

176-11# 






I SCON 

2-30# 

159-53 










ISTORE 

8-6# 

25-17 

25-31* 

25-32 

25-34* 

159-16 






ITMOD 

2-29# 

159-52 










ItMRO 

15-5:5 ■ ■ ■ 

***15-5*6#** 










KBACC 

38-35# 

39-18 










.‘Kfe'fif^’EA* 

39-24 

153-15# 

153-21 









KBCO 

236-17# 

236-23 










KBCi 

236-18# 

236-20 

236-22 









KBC2 

236-19 

236-22# 










KBCHK 

161-13 

236-16# 










KBCP 

16-43 

30-19 

33-13# 










KBCPLFd * ■ 39-27 * * * * 152-1*4#. 

KBCRT 33-48 40-13# 40-36 


KBCRTL* * * 33-47.40-36# 


KBC_BE 

4-31# 

56-16 







KBC_DC 

4-33# 

100-35 

167-3^ 






KBC_DK 

4-38# 

151-33 

167-30 

167-33 





KBC_DR 

4-37# 

167-46 







KBC_EC 

4-32# 

100-15 

167-38 

167-41 





KBC_EK 

4-39# 

151-14 

167-30 






KBC-EL 

4-34# 

152-15 

167-14 

167-17 





KBC_ER 

4-36# 

167-46 

167-49 






h:;bc_id 

4-30# 

167-54 







KBC_OF 

4-40# 

167-22 

167-25 






KBC„ON 

4-41# 

167-22 







KBC_XL 

4-35# 

152-17 

167-14 






KBDISF 

9-45# 

16-40 

151-13* 

151-32* 

167-34 




KBDT 

33-29 

39-9# 

39-38 






KBDTL 

33-28 

39-38# 







KBEl 

38-14 

38-17# 







KBENT 

38-14# 

39-36 







KBFNT 

35-54 

43-11# 

43-40 






KBFNTL 

35-53 

43-40# 







KBIDMLI 

8-30# 

35-42* 







KB IN 

11-38# 

30-15 

30-27 

30-36 

30-47 

31-17 

31-30 

32-15 

KBOUT 

11-37# 

30-24* 

30-29* 

30-45* 

30-53* 

31-27* 

31-31* 


KBPDT 

34-25 

41-16# 

42-45 






KBPDTL 

34-24 

42-45# 







KBSl 

37-45 

37-47# 







KBSCRl 

154-16 

154-19# 
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KBSC:R2 

154-14 

154-21# 


KBSCRO 

39-30 

154-14# 


KBSPAC 

37 - 44 # 

39-15 


KBTAB 

37-15# 

39-15 


KB_0 

3-30# 

41-18 

42-3 

KB_1 

3-31# 

41-21 

42-6 . 

KB ^2 

3-32# 

41-24 

42-9 

KB^3 

3-33# 

41-27 

42-12 . . 

KB_4 

3-34# 

41-30 

42-15 

k;b_5 

3-35# 

41 -33 

42-18 

KB -.6 

3-36# 

41-36 

42-21 

KB_7 

3-37# 

34-54 

41-39 42-24 

KB_S 

3-38# 

41-42 

42-27 

KB_9 

3-39# 

41-45 

42-30 

KB-_ACC 

4-7# 

39-17 

181-17 

KB_BRE 

3-23# 

39-23 

153-20 

KB-CAP 

3-24# 

39-26 


KB_CNT 

3-11# 



KB-COM 

3-43# 

41-57 

42-42 

KB_DAS 

3-42# 

41-54 

42-39 

KB-DEC 

3-40# 

41-48 

42-33 

h;;b_dow 

3-15# 

40-18 

186-13 

KB«.ENT 

3-4i# 

38-15 

39-35 41-51 42-36 

KB_ERA 

3-19# 

40-33 


KB>.F1 

4-9# 

43-13 


KB_F2 

4-10# 

43-16 


KB>_F3 

4-11# 

43-19 


k;b_f4 

4-12# 

43-22 


KB-.F5 

4-13# 

43-25 


KB^F 6 

4-14# 

43-28 


KB_F7 

4-15# 

43-31 


KB_FS 

4-16# 

43-34 


KB_F9 

4-17# 

43-37 


KB_HEL 

3-20# 

40-30 


.■kBJH^OM^ 

3-18# 

40-27 


KB_ID 

4-19# 

35-39 


KB_LEF 

3-16# 

40-21 

186-4 

KB_PCiW 

3-28# 

39-20 

236-20 

KB_RIG 

3-17# 

4o-24 

186-7 

KB_SCR 

3-21# 

39-29 



KB^SET’ ■3-22# ■■39-32 183-35 183-38 208-28 208-31 

KB_SHF 3-10# 34-54 42-3 42-6 42-9 42-12 42-15 42-18 42-21 42-24 42-27 42-30 42-33 42-36 


.42-3^.42-4^2.183-38.208-3'l 

KB-.SPA 3-26# 39-14 208-21 


■KBITAB ■ ■ ■ ■ ■ ■ ■ ■39-i l’. 

KB_UP 3-14# 40-15 186-10 


KCl 

152-16' ■ 

15'2-18# 


KPO 

33-13 

33-17# 


KPl 

33-25 

■■■ 53 - 28 # 


KPIO 

35-25 

35-29 

35-31# 

KPll 

34-43 

34 - 45 # 


KPl 2 

34-54 

35-19# 


. kpis^ 

35-1 

■ ■ss-y# ■■■’ 


KPl 4 

35-3 

35-5# 


KPl 5 

35-12 

■ ■ ' 35-14#'' 


KPl 6 

34-27 

34-30# 



KP1 6 A ’S^-SS# * ■ ’ 34-37.34-38 34-52.::V4-5CV 


c c c c c 


c c 


c c 
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KP2 

KP3 

33-31 

33-57 

33- 42# 

34- 3# 

38-16 









KP4 

34-4 

34-5 

34-9 

34-13# 








KP5 

34-6 

34-10# 










KP6 

33-50 

34-19# 










KP7 

34-20 

34-22# 










KP8 

34-30 

34-52# 










KP9 

34-32 

34-37# 










KPA 

33-23 

35-36# 










KPADAL 

10-16# 

34-32 

104-13# 

104-31# 

199-30# 

200-39 






KPADSH 

10-15# 

34-20 

103-13# 

103-31 # 

199-24# 

200-33 






KPB 

35-39 

35-48# 










KPC 

36-4 

36-12# 










KPCl 

36-26 

36-29# 










KPCOF 

33-56 

34-2 

34-8 

34-14 

34-34 

34-41 

34-45 

34-47 

34-56 

35-5 35-8 

35-10 35-14 35-V-22 


35-27 

35-31 

36-3 

36-6 

36-8 

36-14 

36-18 

36-20 

36-26# 



KPR 

33-15# 

33-44 

33-51 

33-52 

34-28 

34-35 






KPR2 

35-24 

35-48 

35-49 

35-56 

36-21# 







KSR 

154-23 

154-28# 










KTO 

37-17 

37-20# 










KTl 

37-15 

37-18 

37-22# 









KTM1 

37-16 

37-25# 










KTM2 

37-19 

37-26# 










LOT 

179-22 

182-39# 

183-41 









LOTL 

179-21 

183-41# 










LI 

182-18 

184-15# 










LI A 

184-21 

184-23# 










LIT 

.182721... 

183-50# 

183-55 









LITL 

182-20 

183-55# 










. L2. 

.18.57.x 5..., 

,. XJ“:.678?tt. 










L25EN 

9-32# 

16-46 

87-20 

99-15 

99-16# 

99-37# 

124-32 

142-16 

210-15 

229-15 234-17 


.U25.ME.M. 

...6t.X2#. 

..xa6Ta3... 

..21.3724..., 

217-17 

217-18 

217-32 

232-31 

2;-'2 —43 

232-55 



L250N 

10-22# 

16-45 

162-42 

197-8# 

198-9 

210-14 

234-16 






.U2A.186r37^...J.i?7T9. 

L2B 186-40# 187-7 

.L2C . 186-49. ..1 86752# . 

L2D 186-55 187-1 187-3# 

.U2T ......1.85r.X8 186t2# 186-X6 


L2TL 

L3 

185-17 

X88-X4 

186-16# 

1.89-45# 



L3A 

U3AT. 

190-3 
.18.87.26. 

190-6# 

190" 1 

190-46# 

191-43 

L3ATL 

188-25 

188-30 

189-51 

191-43# 


.L3E.19Qnia .... 1.90“15. 1'P.QrAJ ..... 19pi-:1.9# 

L3C 190-25 190-27# 

. .L3D.190733.. 

L3T 188-17 189-14# 189-28 

.L3JL.J337l6....Ag?723#. 

L4 193-14 194-40# 

.L4 A.1 947.45 .1.94t47#. 

L4B 195-3 195-5 195-7 195-9# 


L4T. 3 . 93 - 17..... .X9479#. 1.94723 

L4TL 193-16 194-23# 

.L5.X96tX4.X98-4#. 

L5T 196-17 197-30# 197-44 


U5T.L. 19.6-16.1.97t44# 

L6 199“14 200-28# 
















































Z29R0M; MICROBEINCH 8051 CROSS ASSEMBLER (VI)-218 24-FEB- 

CRCiSS .REFERENCE .TABLE..(CREF. V01-Q5..). 


15 


:30:06 PAGE 


L6T 

L6TL 

199-17 

199-16 

199- 54# 

200 - 11# 

200-11 


L7 

L7C1 

202-14 

204-10 

203- 43# 

204- 15# 



L7C2 
. L7D ... 

204-12 

204-24 

204-14 

204-26# 

204-16 

CO 

i 

0 

C-l 

L7T 

L7TL 

202-17 

202-16 

203-12# 

203-26# 

203-26 



L8 206-14 208-51# 

L8A.. 209-3 .. 209-5# 


L8T 206-17 207-49# 208-9 


L8T2 

206-36 

208 

-19# 

208-34 

L8TL 

206-16 

208 

-9# 


L8TL2 

206-35 

208 

-34# 


LCIF 

27-16# 

56 

-19 



,LF. 2-7# 19-55 230-31... 241-33 241-33 

Lli 27-17 27-21# 

.LINAEi.H . . 87 . 1 . 6 # .... ;22-2.1. 2274 . 0 *. .4.47.25* .. .1.1.5.-.20 

LINADL 8-17# 22-20 22-39* 44-22* i15-19 

.tK?... .507734 ... .5;30-5O. 

LKBR 32-15 32-17# 

LKLiPT .. .j.7;?r5Q. .... T79t27#. 

LNIBI 184-20 184-32# 

LNl B2 .. .18.4 722 . 134733 #. 

Ln3B 191-2 191-51# 

LN3B.1... .19.1 7.5 .1.91 .-52# 

LN3Bio 191-32 i92-4# 

LN3Bli 191-35 192-5# 

LN3B12’ ■ i9i-38' ’' ’192-6#. 

LN3B13 1.91-41 192-7# 

LN3Bi4 190-5 i9i-il 191-17.191-23 i92-8# 

LN3B3 191-8 191-53# 

LN3B5 ’''i9i-i4 ‘ ‘ 191'-^#. 

LN3B7 191-20 192-1# 

LNG:B 8 ‘ ' ■ 191 ^26.i 92-2#. 

LN3B9 191-29 192-3# 

LNSCi' ■ ■ ’190-12.i92-9#. 

LN3C2 190-14 192-10# • 

LN3C3 ' ■ ’i 90-16" ’ ’ ’ i92-i’l#. 

LN3i::4 190-18 192-12# 

LN3E i’ " ’190-24.i 92-i 3#. 

LN3E2 190-26 192-14# 

LN3G i ” ” 1 90-32.i 92- i 5#. 

LN3G2 190-34 192-16# 

LN4Bi’ ■ ■ 194-44.i 95-29#. 

LN4B2 194-46 195-30# 

LN4D1 ’ ■ ’195-2.i’95-31#. 

LN4D2 195-4 195-32# 

■ln4D3’ ■ ’ 195-6.195-33#. 

LN4D4 195-8 195-34# 

LN7i:il ■ ■ ’204-1 i.2’64-39#. 

LN7D2 204-13 204-40# 

■ln7d 3’ ■ ■ 264-15’ ■ ■ ■ ■264-’4i’#. 

LN7D4 204-17 205-1# 

’LN7F i ’ ’ ’ i^4’-^23 ‘ 205-2#.. 

LN7F2 204-25 205-3# 

L’N 8 B ’l’ ’ ’ .209’-i’9#. 


c c c c c c 



c 


c 


c 


c 


c 
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LN8B2 209-4 209-20# 
LNOFF 218-15 218-23# 
LI^N ‘ ■ ■ '218-17 ■ ■ "218-24# 


LOOKUP 

179-19# 

182-22 

185-19 

188-18 

193-18 

196-18 

199-18 

202-18 

206-18 






LORDER 

MAIN 

11-27# 

16-19# 

44-15 

16-45 

45-16 

16-46 

46-21 

16-49 

49-26 

161-23 

171-2 








MAXCHA 

2-20# 

22-31 

24-24 

52-53 

87-28 

87-30 

118-47 

119-15 

120-16 

124-23 

124-51 

132-16 

132-20 


MAXLIN 

2-18# 

24-27 

49-17 

49-22 

87-19 

99-17 

99-38 

99-41 

113-15 

115-41 

116-17 

116-46 

121-20 

122-16 


122-19 

213-20 

124-31 

228-21 

124-41 

229-17 

124-43 

230-36 

125-19 

242-22 

125-31 

125-34. 

126-32 

126-33 

128-29 

142-15 

161-40 

162-43 

212-16 

MLATCH 

6-7# 

■ 1 ^-30 

231-37 













MNl 

16-21 

16-23 

16-26# 









MNIA 

16-28 

16-30# 










MNIB 

16-29 

16-31# 










MNIC 

16-34 

16-36# 










MNID 

16-36 

16-38# 










MN2 

16-26 

16-27 

16-30 

16-31 

16-33 

16-40# 






MN3 

16-40 

16-42 

16-45# 









MODE 

10-38# 

98-13# 

98-31* 

193-30 

193-38* 







MONITO 

10-29# 

17-41 

193-56* 

195-20 








MSGCL 

234-26 

235-3# 










MSGIC 

234-36 

235-13# 










MSGOL 

234-31 

235-8# 










NKC 

78-37 

100-34# 










NORM 

17-29# 

69-37 

69-38 

242-18 

242— i 9 







NRMO 

17-33 

17-34# 










NRMl 

17-34 

17-35 

17-37# 









NULL 

2-3# 

42-4 

42-34 

42-37 

42-40 

42-43 






NLIMCHA 

2-21# 

44-19 

45-20 

112-37 

115-16 

116-51 

124-21 

124-49 

130-15 

171-7 212-17 

213-26 225-24 

NUMLIN 

2-19# 

113-19 

128-28 

161-24 

166-26 

170-48 

170-50 

170-55 




NVRl 

239-17# 

239-19 










NVRCHK 

160-14 

211-13 

239-13# 









NVRSUM 

11-4# 

160-15 

211-14* 









OBUF 

6-19# 

6-20 

2:=!—29 

29-20 

29-29 

29-30 

242-10 

242-11 




OFETCH 

8-11# 

29-16 

29-21 

29-25* 

29-28 

29-29* 

33-44 





OKTRAN 

9-30# 

16-27 

174-46* 

177-25 

177-32* 

231-13 






OLEN 

6-20# 

28-23 










ONLINE 

10-9# 

16-26 

28-15 

162-19 

162-33* 

167-26 

174-31 

182-28* 

184-21 

234-32 


OSTORE 

8-10# 

28—22 

28-30 

28-33* 

' "29-i5' ■ 

29-26" 

29-30* 

33-43 




PBS 

19-42 

117-36# 










PBSl 

117-39 

117-42# 










PC IF 

25-15# 

28-16 

28-19 

36-29 

174-40 







PCKB 

30-13# 

30-21 

30-30 

56-17 

100-16 

167-55 






PCLIA 

111-14 

111-15# 










PCLIB 

111-18 

111-19# 










PCLIC 

111-22 

111-23# 










PCL2 

111-15 

111-19 

111-23 

111-25# 








PCLK 

68-38 

111-13# 










PCOF 

28-15# 

33-14 

36-27 

37-23 

37-47 

94-31 

137-31 

154-19 




.. PCR 

22-83 

47t14 

.. .47.-.3.5 ... 

.. .48.-71.3#.. 








PCRLF 

20-2 

47-14# 










PDC 

61-28 

..1.3.2-16.#.. 

. 1.33.-: 1.9... 









PDCl 

132-35# 

132-56 










.PD.C2 ... 

. 1:32-3;3... 

..132-57#.. 










PDL 

61-27 

63-47 

128-15# 

129-19 








.PDLO.... 

.I28r:24#.. 

,.1.28-30... 










PDLl 

128-23 

128-27# 
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PDL2 

PDLA 

128-27 

128-20 

128-32# 

128-21# 








PFIELD 

11-21# 

23-14 

55-22* 

55-29* 

55-34* 

92-36* 

112-14 

112-15* 

112-17* 113-44* 113-46* 168-39* 172-25 173-1 


226-25 

226-26-«- 

226-28* 

230-21 

230-22* 

230-41* 




PIl 

25-22 

25-26# 








PI2 

25-27 

25-30# 








PI3 

25-33 

25-36# 

26-35 

29—32 






PIC 

18-41 

130-15# 

131-19 







PICl 

130-27# 

130-43 








PIL 

61-26 

63-44 

126-18# 

127-19 






PILO 

126-27# 

126-34 








PILl 

126-25 

126-30# 








PIL2 

126-30 

126-36# 








PILA 

126-22 

126-23# 








PILRET 

126-28 

126-40# 

128-25 

128-36 






PILRTl 

126-23 

126-32 

126-41# 

128-21 

128-28 





PIR 

25-24 

25-37# 








PKO 

30-18 

30-20# 








PKl 

30-15 

30-23# 








PKIA 

30-27 

30-32# 








PK2 

30-36# 

30-42 








PK3 

30-36 

30-45# 








PK4 

30-47# 

30-48 








PK5 

30-47 

30-51# 








PKDLY 

30-37 

30-38 

30-39 

30-40 

30-41 

30-54# 




PKL 

30-34# 

30-51 








PKR 

30-43 

30-49 

30-53# 







PLF 

22-34 

47-15 

47-34 

47-36 

49-16# 

65-40 

128-35 



PLFl 

49-17 

49-19# 








PLF2 

49-20 

49-22# 








.PLF3’■■■ 

49-21 

49-24# 








PLFCR 

19-56 

47-34# 








.PLF'LP' 

49-38# • 

• • • 49-42' ■ ■ 








PLFRET 

49-22 

49-47# 








.PH’ADRH' 

■ ■ ■ 

■8':3-20’* ■ 

• • '88-48 ■ ■ ■ 

■ ■ ■83-58* ■ 

■■■sS-i8*" 

■ ■ ■85-2"! """ 

■ • "85-29* ■ 



PMADRL 

8-26# 

83-19* 

83-42 

83-52* 

85-17* 

85-20 

85-28* 



.FrifeuF■■■ 

■ ■ ■ 6-3:^# ■ 

83-19 

■ ■ ■ 88-20 ■ ■ ■ 

■183-49 ■ 

"""85-"l7""" 

■" ■ 85-1 8■ 




PMNUM 

8-27# 

83-21* 

83-36 

83-38* 

83-50* 

83-54* 

84-1 

84-3* 

85-22 85-30* 

FMOALU 

■ ■ ■ 8 - 28 #■ 

■ ■ 83 - 28 * ■ 

83-31* 

83-34 

83-35* 

■"" 88-45 " ■ ■ 

■ ■ "ss-S^# ■ 



POl 

28-15 

28-18# 








P'02 '' ■ 


■ ■ ■5:8-2i# ■ 








P03 

28—23 

28-28# 








.PORTP" 

• • • • • 

■16-2:8'’■ 

■ "16‘0-“6* 

177-27 ■ ■■ 

194-45 

231-14* 




PRINT 

158-16 

230-15# 








.PRLF • • 

■ ^i.-l ^# ■ 

■"61-2:8 ■■■ 

■■■65-84" 

■i26-38^^ 






PRNTl 

230-28# 

230-36 








.PRNT2- • • 

230-45' ‘ ■ 

■ 230-48# ■ 








PRNT3 

230-51 

230-54# 








.PRMTF■ 

■ ■ ■ 9-53#' 

"174-30 ■■■ 

"174-3^" 

■ 174-89" ■■ 

230-15* 

■ "23"0-48* " ■ 




PROTEC 

9-21# 









.PRtF2‘ ■ ■ 

'io-Sl#' 

■■ 

231-15* 







PRTYEN 

10-3# 

177-17 

188-38 

188-39* 

188-47* 

190-13 




.PRTYev' 

■■id-5# ■ 

177-21 

188-41* 

188-44 

188-45* 

190-17 




PRTYST 

10-4# 

177-19 

188-40* 

188-43 

188-49* 

190-15 




PSD 

66-18 

73-17 

74-17 

83-17# 






PSDl 

83-37 

83-39# 








PSD2 

83-49 

83-52# 









c 


c c c c 


c c 


c c 














































} 3 3 


3 


3 


3 


3 3 3 
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■psbs' '83-51 83-55# 

PSD4 84-2 84-4# 

■psbB.83-i 7.83-25#. 

PSDBl 83-25 83-26# 

PSbB2 ‘'' ‘ 83-27.83-28#. 

PSDE S3r26.83-28.83742#^ 


PSDF 

PSDRET 

9-38# 

83-56 

58-14* 

84r6# 

73-14* 

74-14* 

83-17 

83-18* 









PSOF 

PTRl 

37-20 

7-7# 

136-14# 

44-17 

136-23 

44-18 

137-25 

45-18 

138-16 

45-19 

138-42 

46-24 

139-18 

46-27 

46-34 

46-35 

46-39 

49-28 

49-31 

49-39 

49-40 


49-44 

50-13 

50-17 

50-18 

51-22 

51-23 

51-33 

52-24 

52-30 

52-50 

130-24 

130-36 

130-39 

132-24 


132-48 

132-54 

159-16 

159-22 

159-34 

159-46 

159-48 

160-27 

160-29 

161-23 

161-26 

161-27 

186-35 

186-37 


187-8 

211-16 

211-20 

211-27 

217-19 

217-25 

217-26 

217-30 

217-31 

239-14 

239-17 

239-18 



PTRIA 

7-8# 














PTR2 

7-9# 

46-25 

46-26 

46-33 

46-36 

49-29 

49-30 

49-38 

49-41 

130-25 

130-33 

130-40 

132-29 

132-51 


132-55 

185-14 

185-25 

185-26 

185-27 

185-33 

185-34 

185-35 

185-48 






PTR2A 

7-10# 

186-49 

187-1 













PIJl. 22731 . 22737 #. 

‘PU2.22-32 22-35 22-42# 

PUTCHR 1S 744 .22.714#. 

R2_BAC 13-30# 16-19 157-24 

.R2.^P.QU .. 14.7:;-!4#.167.47 .... .1.58.72.1. 

R2_DIS 14-41# 99-44 158-27 

R2_ESC 13-48# 57-14 157-42 . 

R2Jf Ill' ■ ■ 'l2-35#’ i 12-39 114-20 115-21 116-53 156-34 

R2^ ICU 1 371 4#... 101 733 .... 15776 . 

R2L‘ikB 13-19# 39-21 157-12 


R2 IN 

12-11# 

16-8 

156-10 




R2_IN2 

12-17# 

96-19 

156-16 




R'^ IRQ 

12-40# 

15-34 

156-40 




R2”kY1 

13-36# 

31-15 

157-30 




R2 KY2 

I 3 -- 42 # 

30-13 

157-36 




R2_PRN 

14-29# 

38-17 

61-46 

95-17 

158-15 


R2 SER 

12-46# 

15-43 

156-46 




R2-SET 

13-24# 

. 39-33 

157-18 




R2 STA 

12-23# 

15-49 

156-22 




R2_ST0 

12-29#’ 

15-50 

156—28 




R2 

14-22# 

61-43 

158-9 




.R2«TC 

14-4# 

61-45 

68-17 

157-48 



R2 TL 

14-10# 

61-44 

157-54 




R2_TP 

14-16# 

60-17 

158-3 




R2 XMT 

13-4# 

16-38 

156-52 




R2_X0N 

13-9# 

26-21 

156-57 




RAMO 

2.38.“ 1.8#.. 

. 23 . 8-40 





RAMI 

'238-21# 

238-35 

238-36 




RAM2 

238-38 

238-42# 





RAMCHK 

161-35 

207-19 

238-15# 




RAMfON 


242-6# 





. . 

RAMERR 

. A-.'t't'. . I*-.'. . . . 

238-30 

238-33 

238-44# 




RAMP 

62-15 

96-19# 





REPF 

10-19# 

167-50 

19'=>-36* 

201-2 



RGL 

.56.T1.9# . 

56-23 





RGR 

56-20 

56-21 

56-24# 




RING 


.56.": 1.6#. 

. .20.7 t29. 

. .228.-29 

230t5.3. . 

240-27 . . 

RLl 

. . +-.V . .-s' .... 

46-17 

46-45#’ 




RLIA 

. 4 . 6 - 45 . 

46-47# 





RLL 

46-33# 

46-37 
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RLR 

RMCl 

46-42# 

237-19# 

46-48 

237-24 

237-25 





RMC2 

237-27 

237-29# 






RMS 

62-14 

80-14# 






RMSl 

80-20 

80-21# 






RMSRET 

80-19 

80-21 

80-27# 

81-14 

81-18 



RMST 

80-24 

81-16 

81-30# 

82-2 




RMSTL 

80-23 

81-15 

82-2# 





ROMCHK 

161-34 

207-18 

237-14# 





RTl 

98-32# 

99 -15 






RTS 

11-42# 

178-18# 

178-45* 





RUBOUT 

2-13# 

17-51 

214-36 

220-46 




RWA 

9-15# 

17-42# 

17-45* 

143-23* 

145-13* 

145-31* 

222-8 

SAV2 

211-20# 

211-28 






SBl 

150-17 

150-20# 






SB2 

150-21 

150-26# 






SB3 

150-24 

150-28# 






SBC 

78-43 

101-13# 






SBLR 

68-29 

150-16# 






SBR 

95-40 

134-22 

134-42# 

188-32 




SBRO 

134-48 

134-49# 






SBRET 

134-18 

134-20 

134-44 

134-49 

134-51# 



SBRT 

150-22 

150-33# 






SCI 

164-30 

164-32# 






SC 2 

164-38 

164-40# 






SCH 

19-34 

61-22 

63-14 

99-42 

113-27 

117-13# 

125-37 

SCLRL 

210-18 

213-19# 

234-21 

240-30 




SCLRLR 

182-16 

196-24 

196-37 

206-24 

207-21 

213-17# 


SCP 

61-56 

65-22 

141-13# 

141-33 




SCRNl 

5-4# 

164-26 







SCRN2A ■ ■■■ 5-5#.164-29. 

SCRN2B 5-6# 164-31 

■ StfRN^.5-7#.164-34. 

SCRN4A 5-8# 164-37 

■ 5'-‘7# ■ ■ r64-39. 

SCRNSA 10-30# 175-51 197-20^<- 198-21 


Stil 

SERIAL 

169-25 

156-47 

■ ■1'-^9-26' ■ ■ 
174-13# 

169-29# 












SERIN 

174-18 

174-22# 













SEROUT 

174-19 

174-45# 













SEtuF 

'157-7 

162-39 

165-14# 


203-2 










SETCRT 

163-23 

164-13# 

165-14 












5:EtbiS 

66-16 

69-17# 

73-15 

74-15 

77-14 

80-14 

95-13 

ii:4-i‘3 

134-13 

138-37 

140-13 

143-14 

147-26 

147-35 

SETLCK 

11-40# 

182-13 













SETNOP 

17-23 

58-19 

5S-38 

60-14 

66-20 

69-37# 

73-19 

74-19 

77-16 

80-16 

95-15 

124-38 

134-15 

138-39 


140-15 

143-16 

147-28 

147-37 












Si-iS# 

5'4-15 

185-49 












SETUP 

157-19 

182-13# 













’SETUPO’ 

i'S2'-l'3 ' 

"lS2-'l6#' 













SETUP1 

182-18# 

182-30 

182-42 

182-45 

182-48 










■ ‘ ■ 'SETUPS ■ 

l'8S~5i "' 

"182-54 " 

■i'85-i'4# " 












SETUPS 

182-57 

183-3 

188-14# 

188-33 

188-42 

188-46 

188-48 

188-50 

188-56 

189-5 





■ ■" SETUP# 

i'SS-6 ■" ■ 

■ l'S'S-'9 ■■ ■' 

193-14# 

193-25 

193-42 

193-49 

193-51 

193-57 







SETUPS 

183-12 

183-15 

196-14# 

196-33 

196-35 

196-46 

197-3 

197-9 

197-15 

197-21 





'"S:ETCjP6 

i83-i8 

183-21 

199-14# 

199-25 

199-31 

199-38 

199-45 








SETUP7 

183-24 

103-27 

202-14# 

202-25 

202-31 

202-53 

203-3 








■ '" ‘SETUPS' 

'iPS-SCi ■■■ 

183-33 

206-14# 

207-4 

207-12 

■ ‘207-28 

‘268-26" 









c c c 


c c c 


c c c c c 









































3 




3 3 3 3 
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SEtUPR 

SETUPS 

183-36 

183-39 

208-29 

208-32 

210- r4'# 2il-35 . 

211- 13# 

SFl 

SF2 

172-35 

172-38 

172-40# 

172-40 

172-43# 

SF3 

SF4 

173-2 

173-9 

173-4# 

173-12# 


.8FS. 

l'78-i'C>'' 

"■178-18" 

i"73-i6# . 


SF6 

173-11 

173-14 

173-21# 

SfH ■ ■ ■ 

"172-28 " 

'' i72'-28# ■ 


SFB 

172-21 

172-26 

173-1# 


SFCKB ‘ ■ iSl-lS# ‘ ‘ iSl-SO.‘ ’ iss~i6 '' ’' iS8~15.193-15 ‘ ‘ i’96-i5.199-15.202-15 ' ’' ^Od.-is’' ’' 26‘6-34.214--24 

SFCKBl 181-18# 181-19 

SFC:KB2‘ 181-1^.181-21#.:... 


SFILl 212-17# 212-21 

SF1L2 ■ ■ 212-18# ■ ■ '212-20 


SFILL 206-32 207-3 207-33 212-16# 

SFL.173-6#'"178-22. 


SHIFTF 9-42# 33-18# 34-5 34-19 34-22* 34-30 37-15 154-23 


510 

511 

.81"1"A" ■ 

SI 2 

174-27 

174-30 

174-30# 

174-32# 








174-38 

174-32 

174-86# 

174-34 

174-35 

174-37# 






S13 

174-37 

174-39# 








SLP 

213-27# 

213-29 








SMS 

62-13 









SMSl 

77-20 

77-21# 








SMSRET 

77-19 

77-21 

77-27# 

78-14 

78-18 





SMST 

77-24 

78-16 

78-31# 

79-3 






SMSTL 

77-23 

78-15 

79-3# 







SOFT11 

162-42 

162-46# 








SOFTIN 

156-17 

162-15# 








SOR 

136—16 

136-25# 








SPO 

24-20 

24-23# 








SPl 

24-27 

24-31# 








SP2 

24-24 

24-34# 








SP3 

24-32 

24-35# 








SPF 

18-40 

22-18 

22—42 

24-19# 

24-36 

52-57 

55-23 

55-30 


SRET 

210-14 

210-15 

210-17# 







SRT 

174-20 

174-28 

174-31 

174-39 

1 

1-1 

174-43 

174-48# 



SRTl 

174-53 

174-56# 








STl 

21-21# 

21-39 








ST2 

21-24 

21-37# 








STAB 

18-7 

21-19# 

33-30 

33-49 

34-26 

35-55 

86-20 

180-32 

26'6-3'7 

STACK 

11-32# 

16-7 








.START 

15-9 

16-7# 








STARTD 

156-23 

169-17# 








STBl 

51-25# 

51-32 








STB2 

51-26 

51-29# 








STCALL 

70-21# 

71-19 

72-19 

75-19 

76-19 

78-19 

81-19 



STFILL 

156-35 

172-18# 








STUMP 

58-20 

66-23 

70-18# 

73-22 

74-22 

77-25 

80-25 

140-18 


STOPDM 

156-29 

170-17# 








STPIA 

182-19# 

182-23 








STPIB 

182-28# 

183-53 








STP2A 

185-15# 

185-28 

185-36 

185-50 






STP2B 

185-16# 

185-20 








STP2C 

185-25# 

i86-5 
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STP2C1 

185-26 

185-28# 



STP2D 

185-33# 

186-8 



STP2D1 

185-34 

185-36# 



STP2E 

185-41# 

186-11 



STP2F 

185-47# 

186-14 



STP2F1 

185-42 

CO 

1 

ill 

CO 



SfpSA 

188-15# 

188-19 



STP3B 

188-24# 

189-17 



STP3B1 

188-28 

188-30 

188-32# 


STP3C 

188-38# 

189-20 



STP3C1 

188-38 

188-43# 



STP3C2 

188-43 

188-47# 



STP3C3 

188-44 

188-49# 



STP3D 

188-55# 




STP3E 

189-4# 

189-26 



STP4A 

193-15# 

193-19 



STP4B 

193-24# 

194-1-2 



STP4C 

193-30# 

194-15 



StP4Cl 

193-35 

193-37# 



STP4C2 

193-40 

193-42# 



STP4D 

193-47# 

194-18 



STP4D1 

193-47 

193-50# 



STP4E 

■ i’93-S6#' ■ 

194-21 



STP5A 

196-15# 

196-19 



■ • ■ • 

■ 1^6-24#■ ■ 

197-33 



STP5B1 

196-32 

196-34# 



STP5B2 

196-34 

196-35# 



STP5B3 

196-45 

196-46# 



■ ■■■ srp^- 

• i-97-8# ■ • ■ 

197-36* 



STP5D 

197-14# 

197-39 



.STPSE’ ■ 

• 197-20#■ 

197-42 “ 



STP6A 

199-15# 

199-19 



.stp£:b' ■ 

• 199-24#^ • ■ 

‘199‘-57 “ 



STP6C 

199-30# 

200-3 



. STP'SD • 

1 99-36# •• 

•200-6“ 



STP6E 

199-43# 

200-9 



. STP7A' ■ 

■ 202-i S#- ' ■ 

‘202‘-i‘9 “ 



STP7B 

202-24# 

203-15 



. STP7C- • 

■202-^30#' ■ 

■ ‘203’- i ‘8 “ 



STP7D 

202-36# 

203-21 



• •STP7r«r 

‘202-37 ■ ■ ■ 

‘ 202-41# 



STP7D2 

202-36 

202-45# 



. STP7D3 

• 202-4‘5‘ • • • 

‘20‘2‘-49#‘ 



STP7D4 

202-39 

202-43 

202-47 202-52# 


•••STP7E- 

■2‘03‘-l#‘“ 

‘ 203‘-2‘4 ■ ‘ 



STP8A 

206-15# 

206-19 



• • • stpsb’ ■ 

‘206’-24#‘ 

■ 208‘-2‘ ■ ■ ■ 



STP8B1 

206-31# 

206-38 

206-43 


. STPSBS 

■206-42#’ ■ 

‘ 208-22‘ ■ 



STP8C 

206-48# 

208-5 



■ ■ StPSD' ■ 

‘207-9# ■ 

■ 207-52 



STP8E 
. STPBEC) 

207-17# 

: 2 or- 2 o#‘ ‘ 

207-39 
207-35■ ■ 

208-8 


STP8E1 

207-32# 

207-37 



sTftET 

66-19 

70-19 

70-24# 


sue 

81-42 

101-31# 



SUCl 

101-14 

101-33# 




c c c 


c c 


c c c c 




















































3 
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J 3 3 3 3 


■ Z29RbH; ■ m CROBENICH ‘ 86S i ' cross ‘ ASii^EMBLER ■ (VI ) -2 1 8‘ ■ ■ 24~FEB~83 ■ 15 : 30 i06' PAGE’ ’S’- i 9 
CROSS REFERENCE TABLE.(CREF VO1-05 ) 


.syci. ^± 6 - 14 '''' ■:226“^b.. 

SXMTC 157-49 226-14# 

.SXMtL ■ ■ isy-SS.5:26-18■ • ■ ’227’-is#. 

SXONl 178-44 178-49# 

.SXR.i 78-14 ■ ” 178-41.178-47^ ” 178-49. 

TAB 19-45 52-15# 53-23 

.TABTAB ■ ■ 10-48# ' ‘ ‘ '50-13.5i-2l.52-28.186-35 

TBl 52-32 52-47# 

.TB2.52-40.52-42#... 

TB3 52-35 52-41# 

.rB4.52-37.52-89#.. 

TBS 52-46 52-50# 

.rB6.52-3 i.52-83#. 

TBLl 52-30# 52-51 

.TBL2.52-35# ' 52-44. 

TBR 52-41 52-55# 


.TCNf ■'' 

TEMP 

"11-14# 

7-17# 

•i'63-i5 ■ 
33-42 

"162-87*’ 

33-45 

" 175-41'*" 
35-19 

"1'7S"-4"1‘ " 

35-37 

■ 1'7"5-47’* • 
35-40 

197-2* 

35-51 

36-16 

36-19 

45-15 

45-22 

52-16 

52-36 

52-39 


60-28 

60-32 

83-44 

83-55 

84-1 

84-2 

94-34 

94-39 

118-41 

120-17 

130-31 

132-43 

159-41 

159-45 


170-24 

170-25 

170-35 

173-4 

173-10 

173-12 

186-34 

186-40 

186-48 

186-57 

187-6 

193-31 

193-37 

238-27 

TEMPA 

‘"■7-18#’ 

46-8’7# 

46-39 

49-31* 

49-44 

118-44 

120-20 

130-40 

132-55 

173-13 

193-32* 

238-30 



TERMIN 

168-15# 

193-39 













’T’H'OUK^ 

11-17# 

111-16# 

162-18 

162-34* 

17 6—6* 

176-7 

176-9* 

196-36* 

232-25 






TMIN 

11-16# 

111-20* 

162-17 

162-35* 

176-2* 

176-3 

176-5* 

196-47* 

232-39 






TRA 

177-17 

177-19 

177-21 

177-23# 











TRANS 

177-16# 

178-23 

178-51 












TRANSM 

156-53 

177-14 

177-14# 

219-22 

219-26 

224-3 

224—32 








TROK 

177-25 

177-27# 













TROKl 

177-27 

177-29# 













TR0K2 

177-28 

177-31# 













TRW 

177-25# 

177-26 

177-29 












TSCROL 

8-22# 

46-17 

46-29 

49-24 

49-27 

49-33 

121-17 

125-21* 

125-27 

126-19 

126-22 

126-37* 

126-42* 

128-16 


128-20 

128-34* 

154-26 












TSEC 

11-15# 

111-24* 

162-16 

162-36* 

175-48* 

175-49 

176-1* 

197-1* 

232-21 

2;;'::{2--24 

232-51 




UNDEF 

61-13 

61-30 

61-31 

61-32 

61-33 

61-34 

61-35 

61-36 

61-37 

61-38 

61-47 

61-49 

61-50 

61-51 


61-52 

61-53 

61-54 

62-2 

62-17 

62-19 

62-20 

62-37# 







UNDLNA 

9-16# 

143-29* 

144-31* 

222-29 











USCP 

61-57 

65-25 

142-13# 

142-36 











USCPl 

142-15 

142-17# 













USi::P2 

142-16 

142-18# 













IJXOFFS 

9-28# 

16-35* 

16-37* 

154-16 

178-49 










VSP 

11-39# 

169-27* 

170-52* 

175-56* 











VSPF 

9-54# 

31-22* 

161-42* 

169-26 

174-23* 

175-55* 









WEOL 

62-11 

75-41 

97-15# 












WLATCH 

159-30 

159-32 

160-7 

175-39 

211-31 

211-33 

231-36# 








WORK 

7-15# 

21-19 

21-33 

21-41 

23-19 

23-29 

23-31 

30-35 

30-42 

30-46 

30-48 

35-20 

35-23 

35-28 


46-31 

46-37 

49-35 

49-42 

51-17 

51-31 

52-18 

52-43 

52-48 

52-49 

52-53 

52-55 

113-19 

113-25 


130-28 

132-46 

214-20 

214-29 

215-8 

215-11 

215-12 

225-23 

225-24 

225-26 

225-28 

228-20 

228-21 

230-35 


230-36 

237-14 

237-21 

237-22 

238-16 

238-21 

238-28 

238-38 

238-39 






WORKl 

7-19# 

186-39 

186-52 

186-54 

214-17 

214-42 

214-45 

215-17 

215-19 






WORK1A 

7-20# 














W0RK2 

7-21# 

172-19 

172-21 

173-16 

186-46 

186-50 

186-56 

187-2 

187-3 

196-32 

214-19 

214-40 

214-43 

214-53 


215-20 

240-44 

240-47 

241-1 

241-4 

241-9 

241-12 

241-17 

241-20 

241-25 

241-28 




W0RK2A 

7-22# 














WORKA 

7-16# 

21-24 

23-32 

51-26 

52-37 

130-39 

132-54 

238-33 







XACR 

72-45 

81-57 

107-32# 













XALF 81-54 108-32# 
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XATR 63-53 91-14 143-49# 

.XBLINA. ..86-8# ... 87-32 117-16 117-43 118-48 119-19 120-24 121-24 122-27 124-36 124-53 126-44 142-18 

XERM 72-42 i10-34# 

,XGjATM .. .72--3.3.109-34# 


XGM 

61-21 

91-32 

146-31# 



XHSM 

61-42 

81-39 

102-32# 

193-48 


XHSMl 

102-15 

102-34# 




XI CM 

61-29 

72-39 

105-31# 



XKAM 

61-12 

65-31 

81-51 

104-31# 


XKSM 

62-10 

81-48 

103-31# 



XLO 

220-21 

220—23 

220-28# 



XLOA 

220-44 

220-45# 




XLl 

220-45 

220-53# 




XL 10 

222-29 

222-35# 




XLIOA 

222—33 

222-37# 




XLl 1 

222-31 

222-35 

222-41# 



XL 12 

222-41 

222-47# 




XL12A 

222-45 

222—49# 




XL13 

222-43 

222-47 

222-53# 



XL 14 

222-53 

223-2# 




XL14A 


223-4# 




XL 15 

222—55 

223-2 

223-8# 



XL16 

223-8 

223-22# 




XL16A 

223-26 

223-31# 




XLl 6B 

223-13 

223-25 

223-35# 



XL 17 

223-10 

223-17 

223-20 

223—22 223—29 

223-33 223-39# 

XL 18 

223-41 

224-9# 




XLl SB 

224-12 

224-16# 




XL18C 

224-16 

224-20# 




XLl SB 

224-20 

224-24# 




XL18E 

224-24 

224-28# 




XLl A 

220-53 

220-56# 




XL2 

220-51 

■'220-55 " 

"22'1-'1# " " 



XL20 

223-39 

224-5 

224-31# 




■ 'XL^.22(:)~46.221-5#. 

XL3A 221-16 221-21# 221-25 

■ ■ yL36 . 221-15 ■ ■ ■ 221-25#. 

XL3C 221-14 221-31# 

■ ■■■ XL4.221-9.221-35#. 

XL4A 221-40 221-45# 221-50 

■ ■■■ XL4AA • • •221-41#' ‘ ‘ 221-54. 


XL4B 221-39 221-50# 

■XL4C.221-38 ‘' 222-r#'' 

XL4SET 221-23 221-47# 


XL7 

XL8 

221-11 " 
222-8 

■ 221-i'9’' ■ 
222-17# 

"221-29 "■ 

"221-33 ■■ 

221-35 

221-43 

221-48 

222-6# 



XL8A 


222-20 

222-25# 








XL9 

222-9 

222-15 

222-17 

222—23 

222-29# 






XLATCH 

9-3'# 

150-29 

231-36 








XLONl 

218-16 

218-18# 









XL'OMOr 

195-15 

195-21 

198-10 

198-16 

198-22 

200-34 

200-40 

201-3 

201-9 203-49 

204-5 218-15# 

XML2 

225-21# 

225-24 









'XMPi " " 

228-18# 

228-21 









XMP2 

228-23# 

229-19 









X'MPS 

227-16 

228-26# 

229-15 








XMT25 

158-10 

226-22 

229-15# 








' XMTC' 

■220-'Is'#' 

■225-21 ■■■ 

■ 226-28' 









c 


c c c c 


c c c 


c 



































1 


3 


3 


3 


3 


7 






5 3 3 


Z29R0M; MICROeeNCH 8051 CROSS ASSEMBLER (VI)-218 24~FEB-83 15:30:06 PAGE 8-21 

CROSS REFERENCE. TABLE. .(.C.REF . VO.l 7p5..).. 


XMTL 

225-18# 

227-15 

229-18 












XMTLl 

225-19# 

228-18 

230-28 












XMTP 

158-4 

226-16 

228-15# 












XMTS 

219-16# 

221-17 

221-21 

221-26 

221-31 

221-41 

221-45 

221-51 

222-1 

222-13 

222-21 

223-14 

223-18 

223-27 


223-31 

241-18 

223-45 

241-26 

224-9 

241-32 

224-13 

224-17 

224-21 

224-25 

224-28 

228-26 

230-30 

240-36 

240-45 

241-2 

241-10 


XMTSl 219-19# 219-24 


XMTS2 ..219721 .219726# 


XMTXOF 178-17 178-22# 

XMTXON..1.78-50#. 


XOFF 

XOFFRC 

2 - 10 # 

9-33# 

16-34 

16-31 

154-15 

174-36* 

174-32 

174-38* 

178-22 

177-14 

231-16* 









XOFFSE 

9-27# 

178-14 

178-15* 

178-41 

178-42* 










XON 

2-9# 

16-36 

154-17 

174-37 

178-50 










XPCKB 

100-16# 

100-36 

151-15 

151-34 

152-18 










XPOS 

8-13# 

22-30 

22-37* 

23—20 

24-23 

24-25* 

24-34* 

44-21 

48-13* 

52-15 

52-55* 

53-15 

53-18* 

53-20 


53-26 

53-29* 

54-14 

55-14 

55-20 

55-24 

55-31 

55-42* 

87-31* 

94-26 

114-17 

115-18 

117-14* 

117-38 


117-42* 

118-39 

118-47* 

119-14 

119-18* 

120-15 

120-23* 

124-52* 

126-40* 

130-17 

130-20 

132-18 

137-15 

137-29 


141-13 

142-13* 

166-20 

220-28 

225-19 

225-20* 

225-22* 

225-23 

225—25* 






XR2 DI 

99-41 

99-44# 

105-14 

105-32 

152-19 










XRVM 

62-6 

145-31# 













XST 

180-.8.... 

198-6 

198-12 

198-18 

200-30 

200-36 

200-42 

201-5 

203-45 

204-1 

204-7 

204-20 

204-28 

206-27 


207-24 

208-53 

209-7 

214-46 

216-17# 










.X.ST.AB.. 

70-18 

71-17 

72-17 

75-17 

76-17 

78-17 

81-17 

86 - 20 # 

90-18 






XSTABX 

179-19 

179-23 

180-32# 

188-27 

190-2 










.XSTAT . 

. . 1 . 80 . 720 . 

204-18 

204-26 

209-5 

215-18 

216-20 

217-17# 

218-18 

234-28 

234-33 

234-38 

240-41 

240-49 

241-6 


241-14 

241-22 

241-30 












XSTATX 

190 - 20 .#. 

184-23 

190-7 

190-19 

190-27 

190-35 

194-47 

195-9 







XSTL 

217-21# 

■■ 2 lV- 2 f 













. X.ST.R. 

21.7724. 

..21772?#. 













. XSJX 

180-8# 

184-17 

184-25 

189-47 

190-9 

190-21 

190-29 

194-41 

194-49 

195-11 

195-17 

196-27 

196-40 


.X.XP.QS.. 

...1.17.6#... 

. .14.1.7.1.2*. 

.142-13 

159-22 











.xVpos 

11-7# 

141-14* 

142-14 












YpriQ 

8--14# 

1 7-31 

23-21 

2!4-26 

24-28* 

24-31* 

44-16 

46-16 

46-41 

46-42* 

49-16 

49-46 

49-47* 

55-15 

..i.r v'.'-i’.... 

. ... .W . .-k —. 

55-21 

55-25 

55-32 

55-41* 

87-23* 

94-21 

99-40 

113-14 

114-15 

114-38 

115-40 

115-45 

116-15 

116-44 


.11.77.15*.. 

118-41 

118-43 

120-17 

120-19 

121-15 

121-23* 

122-15 

122-26* 

124-35* 

126-18 

126-21 

126-26 

126-37 


126-43* 

128-15 

128-18 

128-32* 

128-33* 

130-21 

132-21 

137-20 

137-26 

141-14 

142-17* 

166-23 

220-29 

228-16 


, 2287.17* . 

228 — 1 9* 

. .228720 .., 

228-23* 

229-16 

229-17* 

230-25 

230-26* 

230-34* 

230-35 

230-38* 




ZAR 

138-40 

' 139-16 ’ 

143-19 

143-21 

143-32# 











.7AT8.627S.X437-A4#. 

ZATRO 143-20 143-21# 

im . x.qta 1 j#.X 8 - 1 .377 13 .57732. 1 9575 

ZDSO 134-19 134-20# 


ZBS.ES.C.. .5.7r.l9..5.7rSQ.. 6 Q. 7 I 4 #. 

ZDSSBR 62-7 134-13# 

ZDS.T.607.38.61-10#. 

ZE I A. /k)-16 ' 60-18# 

ZEAB.. 60 . 7 } 3. 60 . 720 #. 

ZEIC 60-20 60-23# 

2E2 58740 . 6 P 725 . 6 O 736 # 

2 TAB k-2.i 140-13# 

ZTAB.T. . .1.40.-17 .... .1.407.29#... .1.40.74.0.. 
'zfABTL 140-16 140-40# 
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^$INIT 0-0# 


c c c c 


c 


c 


C C € 


































